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

Package: Inpatient Medications

Routine: PSJEXP0


Information

PSJEXP0 ;BIR/CML3,KKA - PRINTS MEDICATION EXPIRATION NOTICES ;13 FEB 96 / 10:04 AM

Source Information

Source file <PSJEXP0.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," AS OF ",PSGOD,!,"NO EXPIRED ORDERS FROM ",PSGEXPS," THROUGH ",PSGEXPF,!,"FOR ",$S(PSGSS="P":"PATIENT",PSGSS="W":"WARD",PSGSS="C":"CLINIC",PSGSS="L":"CLINIC GROUP",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+2
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+2
Function Call: WRITE
  • Prompt: !!?1,"Medication",?42,"ST",?45,"Start",?52,"Stop",?67,"Status/Info",!?3,"Dosage",?67,"Provider",!,LINE
  • Line Location: HEADER+8
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
Info |  Source |  Entry Points |  Interaction Calls