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

Package: Outpatient Pharmacy

Routine: PSODSPL


Information

PSODSPL ;IHS/DSD/JCM - DISPLAY RX PROFILE TO SCREEN ;03/07/93 18:11

Source Information

Source file <PSODSPL.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
END
SHOW ;
SHOWX
HD ;
DISPL
EOF
STA ;
EOJ ;
PEN ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This patient has no prescriptions",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+12
Function Call: WRITE
  • Prompt: !!,?61,"ISSUE",?68,"LAST",?73,"REF DAY",!,?4,"RX #",?17,"DRUG",?54,"QTY",?58,"ST",?62,"DATE",?68,"FILL",?73,"REM",?77,"SUP"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPL+0
Function Call: WRITE
  • Prompt: $J(PSOCNT,2)
  • Line Location: DISPL+0
Function Call: WRITE
  • Prompt: ?3,$P(^PSRX(+PSODATA,0),"^")_$S($G(^PSRX(+PSODATA,"IB")):"$",1:"")
  • Line Location: DISPL+2
Function Call: WRITE
  • Prompt: ?17,$P(PSODRUG,"^"),?PSOQTLZ,$P(^PSRX(+PSODATA,0),"^",7)
  • Line Location: DISPL+3
Function Call: WRITE
  • Prompt: ?17,$P(PSODRUG,"^")
  • Line Location: DISPL+4
Function Call: WRITE
  • Prompt: ?58,STATL
  • Line Location: DISPL+16
Function Call: WRITE
  • Prompt: $G(PSOCMOP)
  • Line Location: DISPL+16
Function Call: WRITE
  • Prompt: ?61,$E(PSOID,4,5)_"-"_$E(PSOID,6,7)
  • Line Location: DISPL+17
Function Call: WRITE
  • Prompt: ?67,$S(+PSOLF:$E(PSOLF,4,5)_"-"_$E(PSOLF,6,7),1:" - "),$P(PSOLF,"^",2)
  • Line Location: DISPL+20
Function Call: WRITE
  • Prompt: ?74,$J($P(PSODATA,"^",6),2)
  • Line Location: DISPL+21
Function Call: WRITE
  • Prompt: ?78,$J($P(PSODATA,"^",8),2)
  • Line Location: DISPL+22
Function Call: WRITE
  • Prompt: !?PSOQTLZ,"Qty: ",$P(^PSRX(+PSODATA,0),"^",7)
  • Line Location: DISPL+23
Function Call: WRITE
  • Prompt: !
  • Line Location: STA+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: STA+3
Function Call: WRITE
  • Prompt: PSOSTA
  • Line Location: STA+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: STA+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: STA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PEN+2
Function Call: WRITE
  • Prompt: $J(PSOCNT,2)
  • Line Location: PEN+2
Function Call: WRITE
  • Prompt: ?3,$P(PSODRUG,"^")
  • Line Location: PEN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PEN+5
Info |  Source |  Entry Points |  Interaction Calls