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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMTSRFHX

Package: Health Summary

Routine: GMTSRFHX


Information

GMTSRFHX ;WAT;Driver for CAT 1 PRF STATUS Component ;07/18/13 13:17

Source Information

Source file <GMTSRFHX.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
GETSTAT(NAME,CATEG) ;get status of PRF assignment
NOACTIVE ;no active flags header
NOINACTV ;no Inactive flags header
HEADER(TOTAL) ;write a header
PRNTACT(ENTRY) ;show assignment info and hx for Active flags
PRNTINAC(ENTRY) ;show assignment info and hx for Inctive flags
ERR ;can't find flag

External References

Name Field # of Occurrence
$$GETACT^DGPFAPI EN+4, GETSTAT+3
$$GETINF^DGPFAPIH EN+13, EN+23
$$GETFLAG^DGPFAPIU EN+21
CKP^GMTSUP NOACTIVE+1, NOINACTV+1, HEADER+1, PRNTACT+2, PRNTINAC+2, ERR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "No ACTIVE Category I Patient Record Flag assignment(s) found.",!
  • Line Location: NOACTIVE+2
Function Call: WRITE
  • Prompt: !,"No INACTIVE Category I Patient Record Flag assignment(s) found.",!
  • Line Location: NOINACTV+2
Function Call: WRITE
  • Prompt: "ACTIVE Category I Patient Record Flag assignment(s):",!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?2,"FLAG NAME: "_$P(GMTSARR(ENTRY,"FLAG"),"^",2)
  • Line Location: PRNTACT+3
Function Call: WRITE
  • Prompt: !,?3,"Current Status: "_$$GETSTAT($P(GMTSARR(ENTRY,"FLAG"),"^",2),"NATIONAL")
  • Line Location: PRNTACT+4
Function Call: WRITE
  • Prompt: !,?3,"Date Assigned: "_$P(GMTSARR(ENTRY,"ASSIGNDT"),"^",2)
  • Line Location: PRNTACT+5
Function Call: WRITE
  • Prompt: !,?3,"Next Review Date: "_$P(GMTSARR(ENTRY,"REVIEWDT"),"^",2)
  • Line Location: PRNTACT+6
Function Call: WRITE
  • Prompt: !,?3,"Owner Site: "_$P(GMTSARR(ENTRY,"OWNER"),"^",2)
  • Line Location: PRNTACT+7
Function Call: WRITE
  • Prompt: !,?3,"Originating Site: "_$P(GMTSARR(ENTRY,"ORIGSITE"),"^",2)
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: !,?3,"Assignment History:"
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: !,"INACTIVE Category I Patient Record Flag assignment(s):",!
  • Line Location: PRNTINAC+3
Function Call: WRITE
  • Prompt: !,?2,"FLAG NAME: "_$P(GMTSARR("FLAG"),"^",2)
  • Line Location: PRNTINAC+4
Function Call: WRITE
  • Prompt: !,?3,"Current Status: "_$$GETSTAT($P(GMTSARR("FLAG"),"^",2),"NATIONAL")
  • Line Location: PRNTINAC+5
Function Call: WRITE
  • Prompt: !,?3,"Date Assigned: "_$P(GMTSARR("ASSIGNDT"),"^",2)
  • Line Location: PRNTINAC+6
Function Call: WRITE
  • Prompt: !,?3,"Next Review Date: "_$P(GMTSARR("REVIEWDT"),"^",2)
  • Line Location: PRNTINAC+7
Function Call: WRITE
  • Prompt: !,?3,"Owner Site: "_$P(GMTSARR("OWNER"),"^",2)
  • Line Location: PRNTINAC+8
Function Call: WRITE
  • Prompt: !,?3,"Originating Site: "_$P(GMTSARR("ORIGSITE"),"^",2)
  • Line Location: PRNTINAC+9
Function Call: WRITE
  • Prompt: !,?3,"Assignment History:"
  • Line Location: PRNTINAC+10
Function Call: WRITE
  • Prompt: !,"Category I PRF "_$G(FLGNAME)_", is "_$G(ERRMSG)_".",!
  • Line Location: ERR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPF(26.15 - [#26.15] EN+19

Label References

Name Line Occurrences
$$GETSTAT EN+25, PRNTACT+4, PRNTINAC+5
ERR EN+22
HEADER EN+8
NOACTIVE EN+16
NOINACTV EN+27
PRNTACT EN+15
PRNTINAC EN+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CAT EN+1~, EN+2*, EN+25
CATEG GETSTAT~, GETSTAT+6
COUNT EN+1~, EN+2*, EN+6*, EN+7, EN+10*, EN+11, EN+12, EN+15
COUNTER PRNTACT+1~*, PRNTACT+10*, PRNTACT+11, PRNTACT+12, PRNTACT+13, PRNTACT+14, PRNTINAC+1~*, PRNTINAC+11*, PRNTINAC+12, PRNTINAC+13
, PRNTINAC+14
>> DFN EN+3, EN+4, EN+13, EN+23, GETSTAT+3
ENTRY PRNTACT~, PRNTACT+3, PRNTACT+4, PRNTACT+5, PRNTACT+6, PRNTACT+7, PRNTACT+8, PRNTINAC~
ERRMSG EN+1~, EN+22*, ERR+2
FLAGS EN+2~*, EN+4*, EN+5, EN+9
FLAGSTAT GETSTAT+1~, GETSTAT+2*, GETSTAT+6*, GETSTAT+7
FLGNAME EN+1~, EN+2*, EN+19*, EN+21, EN+25, ERR+2
FLGPTR EN+1~, EN+12*, EN+13, EN+21*, EN+22, EN+23
FOUND EN+1~, EN+2*, EN+26*, EN+27
GMTSAFLG GETSTAT+1~
GMTSAFLG( GETSTAT+5, GETSTAT+6
GMTSARR EN+1~
GMTSARR( EN+6, EN+7, EN+10, EN+11, EN+12, PRNTACT+3, PRNTACT+4, PRNTACT+5, PRNTACT+6, PRNTACT+7
, PRNTACT+8
GMTSARR("ASSIGNDT" PRNTINAC+6
GMTSARR("CATEGORY" EN+26
GMTSARR("FLAG" PRNTINAC+4, PRNTINAC+5
GMTSARR("HIST" PRNTINAC+11, PRNTINAC+12, PRNTINAC+13, PRNTINAC+14
GMTSARR("ORIGSITE" PRNTINAC+9
GMTSARR("OWNER" PRNTINAC+8
GMTSARR("REVIEWDT" PRNTINAC+7
GMTSFCNT GETSTAT+1~, GETSTAT+3*
GMTSHX EN+1~
GMTSHX("HIST" PRNTACT+10, PRNTACT+11, PRNTACT+12, PRNTACT+13
>> GMTSQIT NOACTIVE+1, NOINACTV+1, HEADER+1, PRNTACT+2, PRNTINAC+2, ERR+1
INCR EN+1~, EN+2*, EN+20*
INDEX GETSTAT+1~, GETSTAT+4*, GETSTAT+5*, GETSTAT+6
NAME GETSTAT~, GETSTAT+6
NATL EN+1~, EN+2*, EN+7*, EN+8, EN+16
RESULT EN+1~, EN+2*, EN+13*, EN+14, EN+18*, EN+23*, EN+24
STATUS EN+1~, EN+2*, EN+25*
TOTAL HEADER~
U EN+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All