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 |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJEXP0

Package: Inpatient Medications

Routine: PSJEXP0


Information

PSJEXP0 ;BIR/CML3,KKA-PRINTS MEDICATION EXPIRATION NOTICES ;27-Aug-2004 09:14;PLS

Source Information

Source file <PSJEXP0.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 6 $$ENDTC^PSGMI  TXT^PSGMUTL  GT55^PSIVORFB  NAME^PSIVUTL  ENTRY^PSJHEAD  DRGDISP^PSJLMUT1  
VA Fileman 2 NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSJEXP  PSJPDV  

Entry Points

Name Comments DBIA/ICR reference
INFO ;
SND
HEADER ;
WREC ; write Unit Dose record here
LIST ;**list IV orders, UD orders, or ALL
WRECIV ; write IV record here
PRT ;
DONE ;
STRT1 ;
NP ; last line and heading for next page
FST

External References

Name Field # of Occurrence
NOW^%DTC PSJEXP0+6
^DIR HEADER+1, LIST+2
$$ENDTC^PSGMI PSJEXP0+6, PRT+1, WREC+3, WRECIV+3
TXT^PSGMUTL WREC+5
GT55^PSIVORFB WRECIV+4
NAME^PSIVUTL WRECIV+5, WRECIV+6
ENTRY^PSJHEAD HEADER+5
DRGDISP^PSJLMUT1 WREC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: IO'=(IO(0)!(IOST'["C-"))&($Y)
  • Line Location: PSJEXP0+7
Function Call: WRITE
  • Prompt: !!," AS OF ",PSGOD,!,"NO EXPIRED ORDERS FROM ",PSGEXPS," THROUGH ",PSGEXPF,!,"FOR ",$S(PSGSS="P":"PATIENT",PSGSS="W":"WARD",1:"WARD GROUP"),": ",PSJMSG,"."
  • Line Location: PSJEXP0+7
Function Call: WRITE
  • Prompt: !
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: !?5,OPN,?37,OSSN,?51,OWDN,?68,PSJORB
  • Line Location: NP+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !," AS OF: ",PSGPDT,?73-$L(PG),"Page: ",PG,!!!,?20,"THE FOLLOWING MEDICATIONS WILL EXPIRE",!?17,"FROM ",PSGEXPS," THROUGH ",PSGEXPF,!?10,"TO CONTINUE MEDICATIONS, PLEASE REORDER ON VA FORM 10-1158.",!!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !," AS OF: ",PSGPDT,?73-$L(PG),"Page: ",PG,!!!,?20,"THE FOLLOWING MEDICATIONS WILL EXPIRE",!?17,"FROM ",PSGEXPS," THROUGH ",PSGEXPF,!?18,"TO CONTINUE MEDICATIONS, PLEASE REORDER.",!!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!?1,"Medication",?42,"ST",?45,"Start",?52,"Stop",?67,"Status/Info",!?3,"Dosage",?67,"Provider",!,LINE
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!?1,PSG(1),?42,PST,?45,$E(PSGOD,1,5)_" "_PSD,?67,$P(ND,"^",4)
  • Line Location: WREC+3
Function Call: WRITE
  • Prompt: ?70,$E("HSM",$P(ND,"^",8),3)
  • Line Location: WREC+3
Function Call: WRITE
  • Prompt: !?1,PSG(X)
  • Line Location: WREC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: WREC+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(WRD)>80
  • Line Location: WREC+10
Function Call: WRITE
  • Prompt: " ",WRD
  • Line Location: WREC+10
Function Call: WRITE
  • Prompt: !?5,"Special Instructions: "
  • Line Location: WREC+11
Function Call: WRITE
  • Prompt: !?28
  • Condition for execution: $X+$L(Y)>78
  • Line Location: WREC+11
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: WREC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: WRECIV+4
Function Call: WRITE
  • Prompt: !?1,PSG(JJ)
  • Line Location: WRECIV+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRECIV+6
Function Call: WRITE
  • Prompt: ?3,"in"
  • Condition for execution: JJ=1
  • Line Location: WRECIV+6
Function Call: WRITE
  • Prompt: ?6,PSG(JJ)
  • Line Location: WRECIV+6
Function Call: WRITE
  • Prompt: !?1,$P(P("MR"),U,2)_" "_P(9)_" "_P(8)
  • Line Location: WRECIV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WRECIV+7
Function Call: WRITE
  • Prompt: !?5,"Other Print Info: "
  • Line Location: WRECIV+8
Function Call: WRITE
  • Prompt: !?28
  • Condition for execution: $X+$L(Y)>78
  • Line Location: WRECIV+8
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: WRECIV+8
Function Call: WRITE
  • Prompt: ?42,PST,?45,$E(PSGOD,1,5)_" "_PSD,?67,P(17)
  • Line Location: FST+0
Function Call: WRITE
  • Prompt: ?79-$L($P(P(6),U,2)),$P(P(6),U,2)
  • Line Location: SND+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+1
Routine Call
  • DIR
  • Line Location:
    • HEADER+1
    • LIST+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] WREC+11
^TMP("PSG" PSJEXP0+7, PSJEXP0+9, STRT1+1, PRT+2

Label References

Name Line Occurrences
DONE PSJEXP0+7
FST WRECIV+5, WRECIV+6, WRECIV+7
HEADER NP+1
INFO STRT1+1
NP PSJEXP0+10, PRT+2
PRT STRT1+1
SND WRECIV+5, WRECIV+6, WRECIV+7
STRT1 PSJEXP0+9
WREC PRT+2
WRECIV PRT+2

Naked Globals

Name Field # of Occurrence
^( STRT1+1, PRT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSJEXP0+6
AD DONE+1!, INFO+2*
BLF PSJEXP0+8*, DONE+1!, NP+1, HEADER+10*
>> CHOICE LIST+2*
>> DFN WRECIV+4*
DIR HEADER+1!, LIST+1!, LIST+2!
DIR("?" LIST+1*, LIST+2*
DIR("A" LIST+1*
DIR("B" LIST+1*
DIR(0 HEADER+1*, LIST+1*
DLINS WREC+6~*, WREC+7
DRG PRT+2*, WRECIV+1~
DRG("AD" WRECIV+5
DRG("SOL" WRECIV+6
DTOUT HEADER+1, LIST+1!, LIST+2
DUOUT HEADER+1, LIST+1!, LIST+2
DX DONE+1!, INFO+2*
>> FSTFLG WRECIV+2*, WRECIV+7, FST*
IO PSJEXP0+6, PSJEXP0+7, DONE+1
IO(0 PSJEXP0+7, DONE+1
IOF PSJEXP0+7, DONE+1, HEADER+4
IOSL PRT+2, NP+1
IOST PSJEXP0+7, DONE+1, HEADER+1
JJ WRECIV+5*, WRECIV+6~*
LINE PSJEXP0+8*, DONE+1!, HEADER+10
LN WREC+6~, WREC+7*, WREC+8
>> LNCNT WRECIV+2*, WRECIV+5*, WRECIV+6*
MARX WREC+5~, WREC+7
MARX( WREC+8
>> ND STRT1+1*, PRT+2*, INFO+1, INFO+2, WREC+3, WREC+5, WRECIV+3
>> ON WRECIV+4*
ON55 WRECIV+1~
>> OPI WRECIV+8*
OPN DONE+1!, NP+2, HEADER+10*
OSSN DONE+1!, NP+2, HEADER+10*
OTM DONE+1!, HEADER+10*
>> OUT LIST+2*
OWDN DONE+1!, NP+2, HEADER+10*
P WRECIV+1~
P("MR" WRECIV+7
P("OPI" WRECIV+8
P(17 FST
P(6 SND
P(8 WRECIV+7
P(9 WRECIV+7
PAGE DONE+1!, INFO+2*
PDOB DONE+1!, INFO+2*
PG PSJEXP0+8*, DONE+1!, HEADER+4*, HEADER+5
PN PSJEXP0+8*, DONE+1!, STRT1+1*, PRT+2, INFO+1
>> PPN INFO+1*, HEADER+10
PRB DONE+1!, INFO+1*, HEADER+10
PSD DONE+1!, PRT+1*, WREC+3, FST
>> PSEX INFO+2*
PSG WREC+1~, WREC+2, WRECIV+1~, WRECIV+5, WRECIV+6~
PSG( WREC+8, WRECIV+5, WRECIV+6
PSG("" WREC+6
PSG(1 WREC+3
>> PSGDT PSJEXP0+6*
>> PSGEXPF PSJEXP0+7, HEADER+4
>> PSGEXPS PSJEXP0+7, HEADER+4
>> PSGOD PSJEXP0+6*, PSJEXP0+7, PSJEXP0+8, WREC+3*, WRECIV+3*, FST
>> PSGP INFO+1*, HEADER+5, WREC+2, WREC+11, WRECIV+4
PSGPDT PSJEXP0+8*, DONE+1!, HEADER+4
>> PSGSS PSJEXP0+7
PSJDLW PSJEXP0+8!, PSJEXP0+9, PSJEXP0+10, STRT1+1, PRT+2, HEADER+1*
>> PSJJORD PRT+2*, WREC+2, WREC+11, WRECIV+4
>> PSJMSG PSJEXP0+7
PSJORB DONE+1!, NP+2, HEADER+10*
>> PSJSEL("TM" HEADER+5
PSSN PSJEXP0+8*, DONE+1!, INFO+2*, HEADER+10
PST DONE+1!, PRT+2*, WREC+3, FST
PTM DONE+1!, INFO+1*, HEADER+10
PWDN DONE+1!, INFO+1*, HEADER+10
>> Q PSJEXP0+8*, PSJEXP0+10*, NP+2
Q1 DONE+1!, NP+1*
RB PSJEXP0+8*, PSJEXP0+9*, DONE+1!, STRT1+1, PRT+2
RCT DONE+1!
>> SD STRT1+1*, PRT+1, PRT+2
>> SI WREC+11*
>> SNDFLG WRECIV+2*, WRECIV+7, SND*
TD DONE+1!, INFO+2*
>> TEAM HEADER+5*
>> TM PSJEXP0+8*, PSJEXP0+9*, STRT1+1, PRT+2, HEADER+5
U WRECIV+7, SND
>> WDN PSJEXP0+8*, PSJEXP0+9*, STRT1+1, PRT+2
WDRG DONE+1!
>> WT INFO+2*
X INFO+1*, INFO+3*, WREC+1~, WREC+11*, WRECIV+5~*, WRECIV+6~*, WRECIV+8*
>> Y WREC+11*, WRECIV+8*, LIST+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All