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

Package: Outpatient Pharmacy

Routine: PSOSD3


Information

PSOSD3 ;BHAM ISC/RTR - Prints pending orders on action profile ;11/20/95

Source Information

Source file <PSOSD3.m>

Entry Points

Name Comments DBIA/ICR reference
START
END
HD
HD1
NVA ;displays non-va meds

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"No pending orders for this patient!",!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSCONT>1
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?6,$G(^PS(52.41,PNDREX,"SIG",PPPP,0))
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !,PNDLINE,"PENDING ORDERS",PNDLINE,!
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: $S(PSTYPE:"Action",1:"Informational")_" Rx Profile",?47,"Run Date: "
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: ?71,"Page: "_PAGE
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: !,"and for those Rx's that have been inactive less than "_PSDAYS_" days."
  • Condition for execution: PSDAYS
  • Line Location: HD1+6
Function Call: WRITE
  • Prompt: !,"Outpatient prescriptions are discontinued 72 hours after admission.",!
  • Line Location: HD1+9
Function Call: WRITE
  • Prompt: !?1,"Clinic: "_$E(CLINICX,1,28),?45,"Date/Time: "
  • Line Location: HD1+10
Function Call: WRITE
  • Prompt: !?1,"Name : ",PSNAME
  • Line Location: HD1+11
Function Call: WRITE
  • Prompt: ?58,"Action Date: ________"
  • Condition for execution: PSTYPE
  • Line Location: HD1+11
Function Call: WRITE
  • Prompt: !?1,"DOB : "_PSDOB
  • Line Location: HD1+11
Function Call: WRITE
  • Prompt: ?30,ADDRFL,!
  • Condition for execution: ADDRFL]""
  • Line Location: HD1+12
Function Call: WRITE
  • Prompt: ?30,"Address :"
  • Line Location: HD1+12
Function Call: WRITE
  • Prompt: ?41,VAPA(1)
  • Line Location: HD1+14
Function Call: WRITE
  • Prompt: !?41,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: HD1+14
Function Call: WRITE
  • Prompt: !?41,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: HD1+14
Function Call: WRITE
  • Prompt: !?41,VAPA(4)_", "_$P(VAPA(5),"^",2)_" "_$S(VAPA(11)]"":$P(VAPA(11),"^",2),1:VAPA(6)),!?30,"Phone : "_VAPA(8)
  • Line Location: HD1+15
Function Call: WRITE
  • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
  • Line Location: HD1+16
Function Call: WRITE
  • Prompt: !!,"WEIGHT(Kg): "
  • Line Location: HD1+21
Function Call: WRITE
  • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
  • Condition for execution: +$P(WT,"^",8)
  • Line Location: HD1+21
Function Call: WRITE
  • Prompt: ?41,"HEIGHT(cm): "
  • Line Location: HD1+21
Function Call: WRITE
  • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
  • Condition for execution: $P(HT,"^",8)
  • Line Location: HD1+21
Function Call: WRITE
  • Prompt: !,PNDLINE,!?25,"Non-VA Meds (Not dispensed by VA)",!,PNDLINE,!
  • Line Location: NVA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NVA+17
Function Call: WRITE
  • Prompt: !?5,OCK(II)
  • Line Location: NVA+22
Function Call: WRITE
  • Prompt: OCK(II)
  • Line Location: NVA+28
Function Call: WRITE
  • Prompt: !?5
  • Line Location: NVA+28
Function Call: WRITE
  • Prompt: !?5,OCK(II)
  • Line Location: NVA+32
Function Call: WRITE
  • Prompt: !
  • Line Location: NVA+33
Info |  Source |  Entry Points |  Interaction Calls