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

Package: Outpatient Pharmacy

Routine: PSOLBLD1


Information

PSOLBLD1 ;BHAM ISC/RTR-Prints allergy warning label ; 2/20/95

Source Information

Source file <PSOLBLD1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
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: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOLBL  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
START ;
END ;
STORE ;ALLERGY LABEL PRINT NODE - SHOULD ALWAYS BE ON THE ORIGINAL

External References

Name Field # of Occurrence
NOW^%DTC START+2, STORE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(PS2,"^",2)," ","("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P(NOW,":",1,2)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"* THIS MEDICATION HAS INDICATED A *",?TB1,"PRESCRIPTION # "_RXN_" HAS",?TB3,RXN," ",DATE1," Fill 1 of ",1+$P(RXY,"^",9)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"* DRUG ALLERGY *",?TB1,"INDICATED A DRUG ALLERGY:",?TB3,PNM," ",SSNP
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"***********************************"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,?TB1,"THIS PRESCRIPTION WAS ENTERED BY",?TB3,"Qty: ",$G(QTY)," ",$G(PHYS)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,?TB1,$G(TECH),?TB3,"Tech__________RPh__________"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,?TB1,"THIS PRESCRIPTION MAY REQUIRE",?TB3,$G(DRUG)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?TB1,"REVIEWING BY A PHARMACIST",?TB3,"Routing: "_$S("W"[$E(MW):MW,1:MW_" MAIL")
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,?TB3,"Days Supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"**NON-SFTY**",1:"SAFETY")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,?TB3,"Isd: ",ISD," Exp: ",EXPDT
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,?TB3,"Last Fill: ",$G(PSOLASTF)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,?TB3,"Pat. Stat ",PATST," Clinic: ",PSCLN
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+1, START+2
^PS(59 - [#59] START+3
^PSRX - [#52] START+1, PRINT+5, PRINT+6, STORE+1, STORE+2*

Label References

Name Line Occurrences
START PRINT+20

Naked Globals

Name Field # of Occurrence
^( PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+2, STORE+1
AAA PSOLBLD1+3~, STORE+1*
BBBB PSOLBLD1+3~, PRINT+6*
>> COPIES PSOLBLD1+4, START+1*, PRINT+20, PRINT+21*
>> DATE START+2
DATE1 PSOLBLD1+3~, START+2*, PRINT+2
>> DAYS PRINT+15
>> DRUG PRINT+5, PRINT+13
EXPDT PSOLBLD1+3~, START+1*, PRINT+16
HARDCOPY PSOLBLD1+3~, PSOLBLD1+4*, PRINT+21!
ICOUNT PSOLBLD1+3~, PRINT+6*, PRINT+7*, PRINT+8, PRINT+9
IOF PRINT+19
ISD PSOLBLD1+3~, START+1*, PRINT+16
>> MW PRINT+14
NOW PSOLBLD1+3~, START+2*, PRINT+1, STORE+1*, STORE+2
>> OSGY( PRINT+9
>> PATST PRINT+18
>> PDUZ STORE+2
>> PHYS PRINT+11
>> PNM PRINT+3
>> PS2 PRINT+1
PSAA PSOLBLD1+3~, STORE+1*, STORE+2*
PSAQUIT PSOLBLD1+3~, PRINT+7*, PRINT+8*, PRINT+10
PSBQUIT PSOLBLD1+3~, PRINT+7*, PRINT+9*, PRINT+10
>> PSCAP PRINT+15
>> PSCLN PRINT+18
PSCQUIT PSOLBLD1+3~, PRINT+7*, PRINT+10*
PSOING PSOLBLD1+3~
PSOING( PRINT+6*, PRINT+8
PSOING(1 PRINT+5*
PSOING(2 PRINT+5*
PSOING(3 PRINT+6*
>> PSOLASTF PRINT+17
>> PSOSITE START+3
>> QTY PRINT+11
>> RX START+1, PRINT+1, PRINT+5, PRINT+6, STORE+1, STORE+2
>> RXN PRINT+2
>> RXRP( PRINT+1, STORE+2
>> RXY PRINT+1, PRINT+2
>> SGY( PRINT+9
SSG PSOLBLD1+3~
>> SSNP PRINT+3
TB1 PSOLBLD1+3~, START+3*, PRINT+2, PRINT+3, PRINT+8, PRINT+11, PRINT+12, PRINT+13, PRINT+14
TB2 PSOLBLD1+3~, START+3*
>> TB3 START+3*, PRINT+1, PRINT+2, PRINT+3, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15
, PRINT+16, PRINT+17, PRINT+18
>> TECH PRINT+12
>> VRPH PRINT+1
>> Y START+1*, START+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All