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 ;Jan 13, 2021@10:55

Source Information

Source file <GMRPNCW.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Health Summary 3 ENCWA^GMTS  CD^GMTSCW  ENX^GMTSDVR  
VA FileMan 3 MSG^DIALOG  (,$$FIND1)^DIC  ^DIR  
Text Integration Utility 2 $$DATE^TIULS  $$READ^TIUU  
Adverse Reaction Tracking 1 EN1^GMRADPT  
Kernel 1 $$UP^XLFSTR  
Womens Health 1 $$POSTSHRT^WVRPCOR  

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
WH ;Retrieves pregnancy and lactation status for patient

External References

Name Field # of Occurrence
MSG^DIALOG PRINT+24
^DIC EN+5
$$FIND1^DIC PRINT+21
^DIR CWLKP+9
EN1^GMRADPT ALLERGY+4
ENCWA^GMTS PRINT+14
CD^GMTSCW PRINT+5, PRINT+8
ENX^GMTSDVR PRINT+26
$$DATE^TIULS LIST+12, ADDEND+13, ADDEND+14
$$READ^TIUU ENPAT+10
$$POSTSHRT^WVRPCOR WH+2
$$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: !,?24,"P: Pregnant"
  • Line Location: CWLKP+6
Function Call: WRITE
  • Prompt: !,?24,"L: Lactating"
  • Line Location: CWLKP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CWLKP+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $D(DIRUT)!(Y=1)
  • Line Location: CWLKP+9
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: !
  • Line Location: PRINT+24
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,"P for Pregnant",!,?8,"L for Lactating"
  • Line Location: QUES+4
Function Call: WRITE
  • Prompt: !?8,"CWADPL for all 6 patient warnings"
  • Line Location: QUES+5
Function Call: WRITE
  • Prompt: !!?8,"or any combination of C, W, A, D, P and L without commas."
  • Line Location: QUES+6
Routine Call
  • DIALOG
  • Line Location:
    • PRINT+24
Routine Call
  • DIC
  • Line Location:
    • EN+5
Routine Call
  • DIC
  • Line Location:
    • PRINT+21
Routine Call
  • DIR
  • Line Location:
    • CWLKP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMT(142 - [#142] FIND1^DIC
^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
^TMP("DIERR" PRINT+20!, PRINT+24!

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+10, RESPOND+4
SETUP EN+1
WH ENPAT+6

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 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*, PRINT+26
DIC EN+5*, EN+7!, ENPAT+4~
DIC(0 EN+5*
DIR CWLKP+9~
DIR(0 CWLKP+9*
DIROUT EN+2~, EN+6
DIRUT EN+2~, CWLKP+9
DTOUT EN+2~, EN+6
DUOUT EN+2~, EN+6
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*, CWLKP+8, LIST+2*, RESPOND+1, RESPOND+3
GMRPDDT LIST+1~, LIST+12*, LIST+17
GMRPDFN EN+7!, ENPAT+5*, ENPAT+7, ENPAT+9, CWLKP+3, LIST+4, LIST+5, LIST+14, LIST+16, ADDEND+4
, ALLERGY+5, WH+2
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+3*, EN+7!, ENPAT+3
>> GMRPHOLD ENPAT+7, CWLKP+9
GMRPHSTYPE PRINT+3~, PRINT+15*, PRINT+17*, PRINT+18*, PRINT+19, PRINT+21*, PRINT+22, PRINT+26
GMRPHSTYPE("NAME" PRINT+21*, PRINT+23
GMRPI SETUP+1~, SETUP+2*
GMRPIFN LIST+1~
GMRPLIST SETUP+1!
GMRPOPT EN+3*, EN+7!, SETUP+1!, ENPAT+7, ENPAT+11, CWLKP+9, CWLKP+10
GMRPQT EN+4, EN+6*, EN+7!, SETUP+1!, ENPAT+11, END!, CWLKP+8*, RESPOND+2*, PRINT+11*, PRINT+20!
, PRINT+25*
GMRPSTOP SETUP+1!
GMRPTYP ENPAT+4~, CWLKP+3*, LIST+2, LIST+17
GMRPWH ENPAT+7, END!, CWLKP+5, CWLKP+6, CWLKP+7, WH+1!, WH+2*
GMRPX END!, RESPOND+2*, RESPOND+3*, RESPOND+4!, RESPOND+5*, PRINT+4, PRINT+6, PRINT+7, PRINT+9, PRINT+10
, PRINT+15, PRINT+17, PRINT+18
GMTSPRM PRINT+3~*, PRINT+4*, PRINT+6*, PRINT+7*, PRINT+9*, 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+7!
X EN+2~, END!, CWLKP+9~, PRINT+1*, ALLERGY+3*
Y EN+2~, EN+6, ENPAT+4, ENPAT+5, CWLKP+9~

Marked Items

Name Field # of Occurrence
$T(CD^GMTSCW PRINT+5, PRINT+8
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