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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJCLOR5

Package: Inpatient Medications

Routine: PSJCLOR5


Information

PSJCLOR5 ;BIR/JCH - INPATIENT MEDICATIONS UTILITIES FOR CLINIC ORDERS ;25 SEP 97 / 7:43 AM

Source Information

Source file <PSJCLOR5.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 3 ($$PSJREVFY,$$SURE)^PSJCLOR1  DSPORD^PSJCLOR2  CONT^PSJOE0  
VA FileMan 2 NOW^%DTC  ^DIR  
Kernel 1 $$FMTE^XLFDT  
List Manager 1 (CLEAR,FULL)^VALM1  

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: 2

Package Total Caller Graph
Inpatient Medications 2 PSJCLOR2  PSJCLOR3  

Entry Points

Name Comments DBIA/ICR reference
DSPORD(PSGP,TMPORDER,PSJORDAR) ; Display order summary
ORDCHK ; Check for conflicts among selected orders
NEWCLN ; Clean up Order variables

External References

Name Field # of Occurrence
NOW^%DTC ORDCHK+3
^DIR ORDCHK+101
$$PSJREVFY^PSJCLOR1 ORDCHK+85
$$SURE^PSJCLOR1 ORDCHK+85
DSPORD^PSJCLOR2 ORDCHK+21, ORDCHK+44, ORDCHK+60, ORDCHK+77
CONT^PSJOE0 ORDCHK+20, ORDCHK+32, ORDCHK+43, ORDCHK+47, ORDCHK+59, ORDCHK+63, ORDCHK+76, ORDCHK+80
CLEAR^VALM1 ORDCHK+20, ORDCHK+43, ORDCHK+59, ORDCHK+76
FULL^VALM1 ORDCHK+13, ORDCHK+20, ORDCHK+38, ORDCHK+43, ORDCHK+54, ORDCHK+59, ORDCHK+71, ORDCHK+76
$$FMTE^XLFDT DSPORD+6, DSPORD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,$S(PSJOINM]"":PSJOINM,1:"DRUG NAME NOT FOUND")
  • Line Location: DSPORD+11
Function Call: WRITE
  • Prompt: ?50,TMPSTARE
  • Line Location: DSPORD+11
Function Call: WRITE
  • Prompt: !?5,$P($G(^PS(52.6,+ADINT,0)),"^")
  • Line Location: DSPORD+14
Function Call: WRITE
  • Prompt: ?50,TMPSTARE
  • Line Location: DSPORD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+20
Function Call: WRITE
  • Prompt: !!,"Orders for Medications that require removal (CONTINUED):",?45,"Current Start / Stop Dates",!,PSJDASH1
  • Line Location: ORDCHK+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+32
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+32
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+43
Function Call: WRITE
  • Prompt: !!,"ON HOLD orders (CONTINUED):",?45,"Current Start / Stop Dates",!,PSJDASH1
  • Line Location: ORDCHK+43
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+47
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+47
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+59
Function Call: WRITE
  • Prompt: !!,"ON CALL Status orders (CONTINUED):",?45,"Current Start / Stop Dates",!,PSJDASH1
  • Line Location: ORDCHK+59
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+63
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+63
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+76
Function Call: WRITE
  • Prompt: !!,"Complex orders (CONTINUED):",?45,"Current Start / Stop Dates",!,PSJDASH1
  • Line Location: ORDCHK+76
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+80
Routine Call
  • DIR
  • Line Location:
    • ORDCHK+101

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] DSPORD+11, DSPORD+18
^PS(51.2 - [#51.2] DSPORD+12, DSPORD+20
^PS(52.6 - [#52.6] DSPORD+14, DSPORD+23
^PS(52.7 - [#52.7] DSPORD+16, DSPORD+25
^PS(53.1 - [#53.1] DSPORD+1, DSPORD+2, DSPORD+3, DSPORD+4, ORDCHK+67, ORDCHK+89, ORDCHK+90, ORDCHK+91, ORDCHK+93
^PS(55 - [#55] DSPORD+1, DSPORD+2, DSPORD+3, DSPORD+4, DSPORD+5, DSPORD+14, DSPORD+22, ORDCHK+6, ORDCHK+9, ORDCHK+51
, ORDCHK+68, ORDCHK+89, ORDCHK+90, ORDCHK+91, ORDCHK+93
^TMP("PSJON" ORDCHK+5, ORDCHK+50, ORDCHK+66, ORDCHK+84, ORDCHK+88

Naked Globals

Name Field # of Occurrence
^( DSPORD+14, DSPORD+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ORDCHK+3
AD DSPORD+14~*, DSPORD+21~, DSPORD+22*, DSPORD+23
AD(0 DSPORD+14*, DSPORD+23*, DSPORD+25*, DSPORD+26
ADEXT DSPORD+14~, DSPORD+21~, DSPORD+23*
ADINT DSPORD+14~*, DSPORD+15, DSPORD+16, DSPORD+21~, DSPORD+23*, DSPORD+24, DSPORD+26
DIR ORDCHK+20~, ORDCHK+32~, ORDCHK+43~, ORDCHK+47~, ORDCHK+59~, ORDCHK+63~, ORDCHK+76~, ORDCHK+80~, ORDCHK+98!
DIR("A" ORDCHK+98*, ORDCHK+99*, ORDCHK+100*, ORDCHK+101*
DIR(0 ORDCHK+101*
>> DUOUT ORDCHK+86
II DSPORD+22~*, DSPORD+23*
ND0 DSPORD+1~*, DSPORD+5, DSPORD+6, DSPORD+12, DSPORD+16, DSPORD+20, DSPORD+25, ORDCHK+89~*, ORDCHK+92
ND2 DSPORD+1~, DSPORD+2*, DSPORD+6, DSPORD+12, DSPORD+20, ORDCHK+89~, ORDCHK+90*, ORDCHK+92
ND2P1 DSPORD+1~, DSPORD+4*, ORDCHK+91*
NDP1 DSPORD+1~, ORDCHK+89~
NDP2 DSPORD+1~, DSPORD+3*, DSPORD+11, DSPORD+12, DSPORD+18, DSPORD+20
PAD1 DSPORD+21~*, DSPORD+26
PAD2 DSPORD+21~, DSPORD+26*
>> PSGDT ORDCHK+3*
PSGNEDFD NEWCLN+1!
>> PSGOEAV ORDCHK+83
PSGOEE NEWCLN+1!
PSGOEEWF NEWCLN+1!
PSGOORD NEWCLN+1!
PSGP DSPORD~, DSPORD+1, DSPORD+2, DSPORD+3, DSPORD+4, DSPORD+5, DSPORD+14, DSPORD+22, ORDCHK+6, ORDCHK+9
, ORDCHK+21, ORDCHK+44, ORDCHK+51, ORDCHK+60, ORDCHK+68, ORDCHK+77, ORDCHK+89, ORDCHK+90, ORDCHK+91, ORDCHK+93
PSGPD NEWCLN+1!
PSGPDN NEWCLN+1!
PSGPDRGN NEWCLN+1!
PSGRDTX NEWCLN+1!
PSGS0Y NEWCLN+1!
PSIVACNT DSPORD+14~*
>> PSJABORT ORDCHK+82*, ORDCHK+86*, ORDCHK+94*, ORDCHK+97, ORDCHK+98, ORDCHK+99, ORDCHK+101*
PSJBLANK DSPORD+1~, DSPORD+17*, DSPORD+19, DSPORD+20, DSPORD+23, DSPORD+25
PSJCOM NEWCLN+1!
PSJCOMCT ORDCHK+75~*, ORDCHK+76
PSJCOMFL ORDCHK+1~, ORDCHK+3*, ORDCHK+67*, ORDCHK+68, ORDCHK+71
PSJCOMFL( ORDCHK+67*, ORDCHK+69*, ORDCHK+75, ORDCHK+78, ORDCHK+79
PSJDASH1 ORDCHK+14~*, ORDCHK+17, ORDCHK+20, ORDCHK+39~*, ORDCHK+41, ORDCHK+43, ORDCHK+55~*, ORDCHK+57, ORDCHK+59, ORDCHK+72~*
, ORDCHK+74, ORDCHK+76
PSJHOLD ORDCHK+1~, ORDCHK+38
PSJHOLD( ORDCHK+7*, ORDCHK+42, ORDCHK+45, ORDCHK+46
PSJINDNT DSPORD+14~, DSPORD+15*, DSPORD+16, DSPORD+21~, DSPORD+24*, DSPORD+25
PSJL NEWCLN+1!
PSJMRR ORDCHK+1~, ORDCHK+13
PSJMRR( ORDCHK+9*, ORDCHK+19, ORDCHK+21, ORDCHK+26
PSJMRRCNT ORDCHK+14~, ORDCHK+19*, ORDCHK+20
PSJNOO NEWCLN+1!
PSJOCCNT ORDCHK+55~, ORDCHK+58*, ORDCHK+59
PSJOHCT ORDCHK+42~*, ORDCHK+43
PSJOINM DSPORD+1~, DSPORD+11*
PSJONCAL ORDCHK+1~, ORDCHK+3*, ORDCHK+54
PSJONCAL( ORDCHK+52*, ORDCHK+58, ORDCHK+61, ORDCHK+62
PSJORDAR DSPORD~, DSPORD+10, DSPORD+17
PSJORDAR( DSPORD+23*, DSPORD+25*, DSPORD+26*
PSJORDAR(1 DSPORD+18*, DSPORD+19*
PSJORDAR(2 DSPORD+20*
PSJOROR ORDCHK+1~, ORDCHK+67*, ORDCHK+68*
PSJOROR2 ORDCHK+1~, ORDCHK+42*, ORDCHK+44, ORDCHK+45, ORDCHK+46, ORDCHK+58*, ORDCHK+60, ORDCHK+61, ORDCHK+62, ORDCHK+75*
, ORDCHK+77, ORDCHK+78, ORDCHK+79
PSJPCNT DSPORD+7~*, DSPORD+8
PSJPCV DSPORD+7~*, DSPORD+8
PSJQMSG ORDCHK+82*, NEWCLN+1!
PSJREVDN ORDCHK+1~, ORDCHK+83, ORDCHK+85*
>> PSJREVFY ORDCHK+83, ORDCHK+85*, ORDCHK+86
PSJSELOR ORDCHK+1~, ORDCHK+2*, ORDCHK+4, ORDCHK+5, ORDCHK+11, ORDCHK+35*, ORDCHK+48*, ORDCHK+49, ORDCHK+50, ORDCHK+53
, ORDCHK+64*, ORDCHK+65, ORDCHK+66, ORDCHK+70, ORDCHK+81*, ORDCHK+83, ORDCHK+84, ORDCHK+88
PSJSTPDT ORDCHK+82~*
>> PSJSYSU ORDCHK+83, ORDCHK+85
PSJTMPON ORDCHK+4*, ORDCHK+5*, ORDCHK+6, ORDCHK+7, ORDCHK+9, ORDCHK+49*, ORDCHK+50*, ORDCHK+51, ORDCHK+52, ORDCHK+65*
, ORDCHK+66*, ORDCHK+67, ORDCHK+68, ORDCHK+69, ORDCHK+82~, ORDCHK+83*, ORDCHK+84*, ORDCHK+85, ORDCHK+88*, ORDCHK+89
, ORDCHK+90, ORDCHK+91, ORDCHK+92, ORDCHK+93, NEWCLN+2!
STAT ORDCHK+6~*, ORDCHK+7, ORDCHK+51~*, ORDCHK+52
TMPARRAY ORDCHK+14~, ORDCHK+31
TMPARRAY( ORDCHK+24*, ORDCHK+27!
TMPCLN ORDCHK+82~, ORDCHK+93*, ORDCHK+94, ORDCHK+95
TMPCLNAR ORDCHK+82~
TMPCLNAR( ORDCHK+95*
TMPCLNAR("" ORDCHK+94
TMPCNT ORDCHK+4*, ORDCHK+5, ORDCHK+23*, ORDCHK+24, ORDCHK+27, ORDCHK+31*, ORDCHK+49*, ORDCHK+50, ORDCHK+65*, ORDCHK+66
, ORDCHK+82~, ORDCHK+83*, ORDCHK+84, ORDCHK+88*
>> TMPDT DSPORD+7*, DSPORD+8*
TMPNEWSD ORDCHK+82~
TMPORDER DSPORD~, DSPORD+1, DSPORD+2, DSPORD+3, DSPORD+4, DSPORD+5, DSPORD+6, DSPORD+11, DSPORD+13, DSPORD+14
, DSPORD+18, DSPORD+21, DSPORD+22
TMPSEL ORDCHK+4*, ORDCHK+5*, ORDCHK+7, ORDCHK+9, ORDCHK+18*, ORDCHK+19*, ORDCHK+21, ORDCHK+25*, ORDCHK+26*, ORDCHK+27
, ORDCHK+30*, ORDCHK+31*, ORDCHK+49*, ORDCHK+50*, ORDCHK+52, ORDCHK+65*, ORDCHK+66*, ORDCHK+67, ORDCHK+69, ORDCHK+82~
, ORDCHK+83*, ORDCHK+84*, ORDCHK+88*
TMPSELCO ORDCHK+1~, ORDCHK+11*, ORDCHK+23, ORDCHK+24, ORDCHK+30!, ORDCHK+31*, ORDCHK+35, ORDCHK+45*, ORDCHK+46*, ORDCHK+48
, ORDCHK+53*, ORDCHK+61*, ORDCHK+62*, ORDCHK+64, ORDCHK+70*, ORDCHK+78*, ORDCHK+79*, ORDCHK+81
TMPSELCO1 ORDCHK+1~, ORDCHK+46*, ORDCHK+62*, ORDCHK+79*
TMPSELCO2 ORDCHK+1~, ORDCHK+46*, ORDCHK+62*, ORDCHK+79*
>> TMPSELOR ORDCHK+2, ORDCHK+35*, ORDCHK+48*, ORDCHK+64*, ORDCHK+81*
TMPSELX ORDCHK+1~
TMPSELX2 ORDCHK+1~
TMPSOL1 DSPORD+1~, DSPORD+5*, DSPORD+16, DSPORD+25
TMPSTARE DSPORD+1~, DSPORD+6*, DSPORD+7*, DSPORD+9*, DSPORD+11, DSPORD+14, DSPORD+16, DSPORD+19, DSPORD+23, DSPORD+26
TMPSTOP DSPORD+1~, DSPORD+2*, DSPORD+5*, DSPORD+7*, DSPORD+9
>> TMPSTR ORDCHK+92*, ORDCHK+96*
>> TMPSTR( ORDCHK+92*, ORDCHK+96
>> TMPSTR(0 ORDCHK+96*, ORDCHK+97, ORDCHK+99
U ORDCHK+9
VALMBCK NEWCLN+2!
VALMCNT NEWCLN+2!
VALMQUIT NEWCLN+2!
X ORDCHK+101~
Y ORDCHK+101~
Y(1 ORDCHK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All