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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMRPNCW

Package: Text Integration Utility

Routine: GMRPNCW


Information

GMRPNCW ;SLC/DJP,MKB,MJC - CWAD Utility ;07-SEP-2001 16:11

Source Information

Source file <GMRPNCW.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Summary 2 ENCWA^GMTS  CD^GMTSCW  
Text Integration Utility 2 $$DATE^TIULS  $$READ^TIUU  
VA FileMan 2 ^DIC  ^DIR  
Adverse Reaction Tracking 1 EN1^GMRADPT  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Text Integration Utility 2 GMRPNOR1  TIULX  
Inpatient Medications 1 PSJALG  
Registration 1 DGSEC  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry for secondary option to lookup patient, display warnings
SETUP(TITLE)
ENPAT ;Additional entry point; must be passed Patient DFN in Y.
END
CWLKP ;Lookup and presentation of CWA indicators
LIST ;List data lines -- expects GMRPTYP="C" or "W" or "A" or "D"
ADDEND(STATUS) ; If addended or amended, return most recent of these, for most recent note.
ADDX
RESPOND ;prompt for warnings to display
PRINT ;Prints Crisis Notes, Clin Warnings & Allergies using HS utilities.
QUES ;Response to "?" at CWA prompt
ALLERGY ;checks for allergies on file for patient - requires GMRPDFN

External References

Name Field # of Occurrence
^DIC EN+4
^DIR CWLKP+6
EN1^GMRADPT ALLERGY+4
ENCWA^GMTS PRINT+14
CD^GMTSCW PRINT+5
$$DATE^TIULS LIST+12, ADDEND+13, ADDEND+14
$$READ^TIUU ENPAT+10
$$UP^XLFSTR RESPOND+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?(IOM-$L(TITLE)\2),TITLE,!
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SETUP+3
Function Call: WRITE
  • Prompt: !!,"No Patient Warnings on file for "
  • Line Location: ENPAT+8
Function Call: WRITE
  • Prompt: $P(GMRPDFN,U,2),".",!
  • Line Location: ENPAT+9
Function Call: WRITE
  • Prompt: !?24,"A: Known allergies"
  • Line Location: CWLKP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CWLKP+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $D(DIRUT)!(Y=1)
  • Line Location: CWLKP+6
Function Call: WRITE
  • Prompt: !?11," (",CTR," note",$S(CTR>1:"s",1:" "),")",?24,GMRPTYP,": ",GMRPDDT
  • Line Location: LIST+17
Function Call: WRITE
  • Prompt: $$ADDEND(STATUS)
  • Line Location: LIST+18
Function Call: WRITE
  • Prompt: !!,"Select patient warning(s) to display: "_GMRPCWA_"//"
  • Line Location: RESPOND+1
Function Call: READ
  • Variable: GMRPX
  • Timeout: 60
  • Line Location: RESPOND+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!," Enter:"
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !?8,"C for Crisis Notes",!?8,"W for Clinical Warnings"
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !?8,"A for Allergies",!?8,"D for Directive Notes"
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !?8,"CWAD for all 4 patient warnings"
  • Line Location: QUES+4
Function Call: WRITE
  • Prompt: !!?8,"or any combination of C, W, A, and D without commas."
  • Line Location: QUES+5
Routine Call
  • DIC
  • Line Location:
    • EN+4
Routine Call
  • DIR
  • Line Location:
    • CWLKP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PRINT+1, ALLERGY+3
^DPT - [#2] ENPAT+5, ALLERGY+5
^TIU(8925 - [#8925] ENPAT+7, CWLKP+3, LIST+4, LIST+5, LIST+14, LIST+16, ADDEND+4, ADDEND+5, ADDEND+6, ADDEND+7
, ADDEND+8, ADDEND+9

Label References

Name Line Occurrences
$$ADDEND LIST+18
ADDX ADDEND+12, ADDEND+13
ALLERGY ENPAT+6
CWLKP ENPAT+11
LIST CWLKP+3
PRINT ENPAT+11
QUES RESPOND+4
RESPOND CWLKP+7, RESPOND+4
SETUP EN+1

Naked Globals

Name Field # of Occurrence
^(0 ALLERGY+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AAMENDDT ADDEND+1~, ADDEND+9*, ADDEND+10
ADDMDT ADDEND+1~, ADDEND+8*, ADDEND+11, ADDEND+14
ADDMIEN ADDEND+1~, ADDEND+6*, ADDEND+7*, ADDEND+8, ADDEND+9
AMENDDT ADDEND+1~, ADDEND+5*, ADDEND+10*, ADDEND+11, ADDEND+13
COUNT LIST+1~, LIST+13*, LIST+14*, LIST+15*, LIST+16*
CTR CWLKP+1*, LIST+1~, LIST+13*, LIST+14*, LIST+16*, LIST+17
CWA END!
CWA("DOCTYPE" CWLKP+2*, CWLKP+3, LIST+4, LIST+5, LIST+14, LIST+16, ADDEND+4
DFN ENPAT+4~, ENPAT+5*
DIC EN+4*, EN+6!, ENPAT+4~
DIC(0 EN+4*
DIR CWLKP+6~
DIR(0 CWLKP+6*
>> DIROUT EN+5
>> DIRUT CWLKP+6
>> DTOUT EN+5
>> DUOUT EN+5
GMRA ALLERGY+2!
GMRAL ALLERGY+4!
GMRPALG ENPAT+7, END!, CWLKP+4, ALLERGY+2!, ALLERGY+4*, ALLERGY+5*
GMRPAT SETUP+1!
GMRPCWA END!, CWLKP+1*, CWLKP+4*, CWLKP+5, LIST+2*, RESPOND+1, RESPOND+3
GMRPDDT LIST+1~, LIST+12*, LIST+17
GMRPDFN EN+6!, ENPAT+5*, ENPAT+7, ENPAT+9, CWLKP+3, LIST+4, LIST+5, LIST+14, LIST+16, ADDEND+4
, ALLERGY+5
GMRPDT LIST+1~, LIST+7*, LIST+8*, LIST+9, LIST+10*, LIST+11*, LIST+12, ADDEND+4
GMRPDT(7 LIST+4*, LIST+7, LIST+8, LIST+10
GMRPDT(8 LIST+5*, LIST+7, LIST+8, LIST+10, LIST+11
GMRPEN EN+2*, EN+6!, ENPAT+3
>> GMRPHOLD ENPAT+7, CWLKP+6
GMRPI SETUP+1~, SETUP+2*
GMRPIFN LIST+1~
GMRPLIST SETUP+1!
GMRPOPT EN+2*, EN+6!, SETUP+1!, ENPAT+7, ENPAT+11, CWLKP+6, CWLKP+7
GMRPQT EN+3, EN+5*, EN+6!, SETUP+1!, ENPAT+11, END!, CWLKP+5*, RESPOND+2*, PRINT+12*
GMRPSTOP SETUP+1!
GMRPTYP ENPAT+4~, CWLKP+3*, LIST+2, LIST+17
GMRPX END!, RESPOND+2*, RESPOND+3*, RESPOND+4!, RESPOND+5*, PRINT+4, PRINT+6, PRINT+7, PRINT+8, PRINT+10
, PRINT+11
GMTSPRM PRINT+3~*, PRINT+4*, PRINT+6*, PRINT+7*, PRINT+8*, PRINT+10*, PRINT+11*, PRINT+12, PRINT+13*
GMTSTITL PRINT+3~*
IEN ADDEND+1~, ADDEND+3*, ADDEND+4*, ADDEND+5, ADDEND+6
IOF SETUP+2
IOM SETUP+2
IOST EN+1
MAX ADDEND+1~, ADDEND+11*, ADDEND+12, ADDEND+13
MSG ADDEND+1~, ADDEND+12*, ADDEND+13*, ADDEND+14*, ADDX
STATUS LIST+1~, LIST+7*, LIST+8*, LIST+10*, LIST+11*, LIST+18, ADDEND~, ADDEND+4
TITLE SETUP~, SETUP+2
U ENPAT+5, ENPAT+9, ADDEND+7, ALLERGY+5
VAROOT EN+6!
X END!, PRINT+1*, ALLERGY+3*
>> Y EN+5, ENPAT+4, ENPAT+5, CWLKP+6

Marked Items

Name Field # of Occurrence
$T(CD^GMTSCW PRINT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All