Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMTSMHRF

Package: Health Summary

Routine: GMTSMHRF


Information

GMTSMHRF ;BP/WAT - DRIVER FOR PRF ASSIGNMENT HX ;09/05/12 13:47

Source Information

Source file <GMTSMHRF.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 $$GETACT^DGPFAPI  $$GETINF^DGPFAPIH  $$GETFLAG^DGPFAPIU  
Health Summary 1 CKP^GMTSUP  
Toolkit 1 $$GET^XPAR  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;SHOW THE FLAG HX
GETSTAT(NAME,CATEG) ;get status of PRF assignment
EN ;start here
ERR ;can't find flag

External References

Name Field # of Occurrence
$$GETACT^DGPFAPI GETSTAT+3
$$GETINF^DGPFAPIH EN+11, EN+17
$$GETFLAG^DGPFAPIU EN+9, EN+15
CKP^GMTSUP PRINT+2, ERR+1
$$GET^XPAR EN+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?2,"CATEGORY "_$P(GMTSARR("CATEGORY"),"^")_" PRF: "_$P(GMTSARR("FLAG"),"^",2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?3,"Current Status: "_$G(GMTSSTAT)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?3,"Date Assigned: "_$P(GMTSARR("ASSIGNDT"),"^",2)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?3,"Next Review Date: "_$P(GMTSARR("REVIEWDT"),"^",2)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?3,"Owner Site: "_$P(GMTSARR("OWNER"),"^",2)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?3,"Originating Site: "_$P(GMTSARR("ORIGSITE"),"^",2)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,?3,"Assignment History:"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"Category "_CATEGORY_" PRF, "_FLGNAME_", is "_ERRMSG_".",!
  • Line Location: ERR+2

Label References

Name Line Occurrences
$$GETSTAT EN+12, EN+18
ERR EN+10
PRINT EN+12, EN+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CAT EN+7~, EN+9*, EN+12, EN+15*, EN+18
CATEG GETSTAT~, GETSTAT+6
CATEGORY EN+7~, EN+10*, ERR+2
COUNT PRINT+1~*, PRINT+10*, PRINT+11, PRINT+12, PRINT+13
>> DFN EN+11, EN+17, GETSTAT+3
ERRMSG EN+7~, EN+10*, ERR+2
FLAGSTAT GETSTAT+1~, GETSTAT+2*, GETSTAT+6*, GETSTAT+7
FLGNAME EN+7~, EN+8*, EN+9, EN+12, EN+13*, EN+14, EN+15, EN+18, ERR+2
FLGPTR EN+7~, EN+9*, EN+10, EN+11, EN+15*, EN+16, EN+17
GMTSAFLG GETSTAT+1~
GMTSAFLG( GETSTAT+5, GETSTAT+6
GMTSARR EN+7~
GMTSARR("ASSIGNDT" PRINT+5
GMTSARR("CATEGORY" PRINT+3
GMTSARR("FLAG" PRINT+3
GMTSARR("HIST" PRINT+10, PRINT+11, PRINT+12, PRINT+13
GMTSARR("ORIGSITE" PRINT+8
GMTSARR("OWNER" PRINT+7
GMTSARR("REVIEWDT" PRINT+6
GMTSFCNT GETSTAT+1~, GETSTAT+3*
>> GMTSQIT PRINT+2, ERR+1
GMTSSTAT EN+7~, EN+12*, EN+18*, PRINT+4
INDEX GETSTAT+1~, GETSTAT+4*, GETSTAT+5*, GETSTAT+6
NAME GETSTAT~, GETSTAT+6
RESULT EN+7~, EN+11*, EN+12*, EN+17*, EN+18
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All