Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls