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 |  Local Variables |  All
Print Page as PDF
Routine: PSOLBLD

Package: Outpatient Pharmacy

Routine: PSOLBLD


Information

PSOLBLD ;BHAM ISC/RTR - PRINTS LABEL ;4/14/93

Source Information

Source file <PSOLBLD.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Outpatient Pharmacy 2 $$RCONVMS^PSODOSUT  CHCK2^PSOTRLBL  
Pharmacy Data Management 1 $$DS^PSSDSAPI  
VA FileMan 1 NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOLBL  PSOLBLN2  

Entry Points

Name Comments DBIA/ICR reference
UNKNOWN
END
L7
L14
L15
L16
BLANK ;label between patients
L10
L11
L12
L13
L6
START ;
L5
L2
STORE ;LABEL PRINT NODE
L1
L8
L9

External References

Name Field # of Occurrence
NOW^%DTC START+3, STORE+1
$$RCONVMS^PSODOSUT L6+5
CHCK2^PSOTRLBL STORE+8
$$DS^PSSDSAPI L6+4, STORE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+6
Function Call: WRITE
  • Prompt: $P(PS2,"^",2)," ","("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P(NOW,":",1,2)
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: ?TB1,"PRESCRIPTION # "_RXN_" HAS"
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: ?TB3,RXN," ",DATE1," Fill ",RXF+1," of ",1+$P(RXY,"^",9)
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !?TB1,"CAUSED A DRUG-DRUG INTERACTION"
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: ?TB3,PNM," ",SSNP
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !?TB1,"WITH THE FOLLOWING PRESCRIPTION(S):"
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: ?TB3,$S($G(OSGY(1))]"":OSGY(1),1:$G(SGY(1)))
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: !,?TB3,$S($G(OSGY(2))]"":OSGY(2),1:$G(SGY(2)))
  • Line Location: L5+0
Function Call: WRITE
  • Prompt: !,?TB3,$S($G(OSGY(SSG))]"":OSGY(SSG),1:$G(SGY(SSG)))
  • Line Location: L5+1
Function Call: WRITE
  • Prompt: !?TB1,$P($G(^PSRX(RXX(X),0)),"^"),?TB2,$S(SER=1:"CRITICAL",SER=2:"SIGNIFICANT",1:"UNKNOWN")," INTERACTION",!?TB1," ",$P(^PSDRUG($P(^PSRX(RXX(X),0),"^",6),0),"^")
  • Line Location: L6+1
Function Call: WRITE
  • Prompt: !,?TB1,$P($G(^PSRX(RXX(X),0)),"^"),?TB2,$S(SER=1:"CRITICAL",SER=2:"SIGNIFICANT",1:"UNKNOWN")," INTERACTION",!?TB1," ",$P(^PSDRUG($P(^PSRX(RXX(X),0),"^",6),0),"^")
  • Line Location: L6+3
Function Call: WRITE
  • Prompt: !!?TB1,T
  • Line Location: L6+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L7+0
Function Call: WRITE
  • Prompt: !,?TB1,"THIS PRESCRIPTION WAS ENTERED BY: ",?TB3,"Qty: "_$G(QTY)," ",$G(PHYS)
  • Line Location: L8+0
Function Call: WRITE
  • Prompt: !,?TB1,TECH,?TB3,"Tech__________RPh__________"
  • Line Location: L9+0
Function Call: WRITE
  • Prompt: !,?TB3,"Days supply: ",$G(DAYS)," Cap: "_$S(PSCAP:"**NON-SFTY**",1:"SAFETY")
  • Line Location: L12+0
Function Call: WRITE
  • Prompt: !,?TB3,"Isd: ",ISD," Exp: ",EXPDT
  • Line Location: L13+0
Function Call: WRITE
  • Prompt: !,?TB3,"Last Fill: ",$G(PSOLASTF)
  • Line Location: L14+0
Function Call: WRITE
  • Prompt: !,?TB3,"Pat. Stat ",PATST," Clinic: ",PSCLN
  • Line Location: L15+0
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: L16+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STORE+9
Function Call: WRITE
  • Prompt: !!!,?TB1,"PRESCRIPTION # ",$P(^PSRX(RX,0),"^")
  • Line Location: UNKNOWN+0
Function Call: WRITE
  • Prompt: !,?TB1," ",$P(^PSDRUG($P(^PSRX(RX,0),"^",6),0),"^"),?TB3,$P(PS2,"^",2)_" ("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P($P(NOW,":",1,2),"@")
  • Line Location: UNKNOWN+1
Function Call: WRITE
  • Prompt: !,?TB3,RXN," ",DATE1," Fill ",RXF+1," of ",1+$P(RXY,"^",9)
  • Line Location: UNKNOWN+2
Function Call: WRITE
  • Prompt: !,?TB1,"The above prescription has a status",?TB3,PNM," ",SSNP
  • Line Location: UNKNOWN+3
Function Call: WRITE
  • Prompt: !,?TB1,"of PENDING due to a DRUG-DRUG INTERACTION.",?TB3,$S($G(OSGY(1))]"":OSGY(1),1:$G(SGY(1)))
  • Line Location: UNKNOWN+4
Function Call: WRITE
  • Prompt: !,?TB3,$S($G(OSGY(SSG))]"":OSGY(SSG),1:$G(SGY(SSG)))
  • Line Location: UNKNOWN+5
Function Call: WRITE
  • Prompt: !,?TB1,"Please review printouts of all labels"
  • Line Location: UNKNOWN+6
Function Call: WRITE
  • Prompt: !,?TB1,"for this patient that follow."
  • Line Location: UNKNOWN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UNKNOWN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BLANK+1
Function Call: WRITE
  • Prompt: !,"**********************NEXT PATIENT*************",?54,"*********NEXT PATIENT***********NEXT PATIENT***"
  • Line Location: BLANK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+2, START+3
^PS(52.4 - [#52.4] START+5, L6, L6+2, L6+4, STORE+7, STORE+8, END
^PS(59 - [#59] START+4
^PSDRUG - [#50] L6+1, L6+3, UNKNOWN+1
^PSRX - [#52] START+2, START+5, START+6, L2, L2+2, L2+4, L6+1, L6+2, L6+3, STORE+1
, STORE+2, STORE+3*, STORE+4, STORE+6*, STORE+9, UNKNOWN, UNKNOWN+1

Label References

Name Line Occurrences
BLANK START+6, STORE+9
START L16+1
STORE UNKNOWN+7
UNKNOWN START+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+3, STORE+1!
%H STORE+1!
%I STORE+1!
COPIES PSOLBLD+4, START+2*, L16+1, L16+2*, END!, UNKNOWN+8!
>> DATE START+3
DATE1 START+3*, L2+1, END!, UNKNOWN+2, UNKNOWN+8!
>> DAYS L12
DRUG L10, END!, UNKNOWN+8!
EXPDT START+2*, L13, END!, UNKNOWN+8!
FDA STORE+2*, STORE+7!
HOLDCOPY PSOLBLD+4*, L16+2!
I STORE+1*, STORE+7!
I1 END!, UNKNOWN+8!
INT END!, UNKNOWN+8!
IOF START+6, L16, STORE+9, UNKNOWN+8
IR STORE+2*, STORE+3*, STORE+6, STORE+7!
ISD START+2*, L13, END!, UNKNOWN+8!
LINE END!, UNKNOWN+8!
LMI END!, UNKNOWN+8!
MW L11, END!, UNKNOWN+8!
NLWS END!, UNKNOWN+8!
NOW START+3*, L1, STORE+1*, STORE+4, STORE+7!, UNKNOWN+1
NURSE END!, UNKNOWN+8!
>> OSGY( L5+1, UNKNOWN+5
>> OSGY(1 L2+5, UNKNOWN+4
>> OSGY(2 L5
PATST L15, END!, UNKNOWN+8!
>> PCOMX STORE+4
>> PDUZ STORE+5
PHYS L8, END!, UNKNOWN+8!
>> PNM L2+3, UNKNOWN+3
PRTFL END!, UNKNOWN+8!
PS END!, UNKNOWN+8!
PS1 END!, UNKNOWN+8!
PS2 L1, END!, UNKNOWN+1, UNKNOWN+8!
PS55 END!
PS55X END!
>> PSCAP L12
PSCLN L15, END!, UNKNOWN+8!
PSODOSEW PSOLBLD+5~*, L6+5*, STORE+5
PSODRGI PSOLBLD+5~*, L2+3*, L6+1*, L6+3*, STORE+5
>> PSOLASTF L14
PSOLINFD PSOLBLD+5~*, L2+2*, L2+3*, L2+4*, L2+5*
>> PSOPAR START+6, STORE+8, STORE+9
PSOSERV START+1!, L6+1*, L10, L11, END!, UNKNOWN+8!
>> PSOSITE START+4
PSRXSET STORE+3*, STORE+4*, STORE+5*, STORE+6!
>> PSSPND STORE+8
>> QTY L8
RFLMSG END!, UNKNOWN+8!
>> RX START+2, START+5, START+6, L1, L2, L2+2, L2+4, L6, L6+2, L6+4
, STORE+1, STORE+2, STORE+3, STORE+4, STORE+5, STORE+6, STORE+7, STORE+8, STORE+9, END
, UNKNOWN, UNKNOWN+1
RXF L2, L2+1, L2+2, L2+4, STORE+1*, STORE+4, STORE+7!, UNKNOWN+2
>> RXN L2, L2+1, UNKNOWN+2
>> RXP L2, L2+2, L2+4
>> RXRP( L1, STORE+5
RXX END!, UNKNOWN+8!
RXX( L6*, L6+1, L6+2*, L6+3
RXY L1, L2+1, END!, UNKNOWN+1, UNKNOWN+2, UNKNOWN+8!
SCRIPT L6*, L6+2*, END!, UNKNOWN+8!
SER L6+1*, L6+3*, END!, UNKNOWN+8!
SEV L6*, L6+2*, END!, UNKNOWN+8!
SEV( L6*, L6+1, L6+2*, L6+3
SGC END!, UNKNOWN+8!
SGY END!, UNKNOWN+8!
SGY( L5+1, UNKNOWN+5
SGY(1 L2+5, UNKNOWN+4
SGY(2 L5, UNKNOWN+5
SGY(3 L5+1
SIDE END!, UNKNOWN+8!
SIGPH END!, UNKNOWN+8!
SSG L5+1*, END!, UNKNOWN+5*, UNKNOWN+8!
>> SSNP L2+3, UNKNOWN+3
STATE END!, UNKNOWN+8!
>> T L6+4*, L6+5*
TB1 START+4*, L2, L2+2, L2+4, L6+1, L6+3, L6+5, L8, L9, L10
, L11, END!, UNKNOWN, UNKNOWN+1, UNKNOWN+3, UNKNOWN+4, UNKNOWN+6, UNKNOWN+7, UNKNOWN+8!
TB2 START+4*, L6+1, L6+3, END!, UNKNOWN+8!
TB3 START+4*, L1, L2+1, L2+3, L2+5, L5, L5+1, L8, L9, L10
, L11, L12, L13, L14, L15, END!, UNKNOWN+1, UNKNOWN+2, UNKNOWN+3, UNKNOWN+4
, UNKNOWN+5, UNKNOWN+8!
TECH L9, END!, UNKNOWN+8!
VRPH L1, END!, UNKNOWN+1, UNKNOWN+8!
X L6*, L6+1, L6+2*, L6+3, END!, UNKNOWN+8!
X1 END!, UNKNOWN+8!
X2 END!, UNKNOWN+8!
Y START+2*, START+3*, END!, UNKNOWN+8!
ZBLANK BLANK+1*, BLANK+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All