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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSOLBLN

Package: Outpatient Pharmacy

Routine: PSOLBLN


Information

PSOLBLN ;BIR/RTR - NEW PRINTS LABEL ;11/18/92

Source Information

Source file <PSOLBLN.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 13 $$CHKRX^PSOBAI  DEVBAR^PSOBMST  $$STATUS^PSOBPSUT  $$PRINTMG^PSOFDAMG  $$MGONFILE^PSOFDAUT  (,KILL,REP,TRAIL,WARN)^PSOLBL2  (,ALLWARN)^PSOLBLN1  ALL^PSOLBLS  
$$FIND^PSOREJUT  (,RFLDT)^PSORFL  $$ZZ^PSOSUTL  PSOSTALK^PSOTALK1  CHCK2^PSOTRLBL  
E Claims Management Engine 2 LOG^BPSOSL  $$IEN59^BPSOSRX  
VA FileMan 2 (,C,NOW)^%DTC  $$GET1^DIQ  
Registration 1 ADD^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOLBL  

Entry Points

Name Comments DBIA/ICR reference
ST
L1
L11
L12
L13
REP
END ;
LOGLBL(PSORX,PSORXF,PSORESP) ;

External References

Name Field # of Occurrence
^%DTC ST+36
C^%DTC ST+33
NOW^%DTC ST+37, REP+1
LOG^BPSOSL LOGLBL+20, LOGLBL+22, LOGLBL+36, LOGLBL+38, LOGLBL+44, LOGLBL+51
$$IEN59^BPSOSRX LOGLBL+15
$$GET1^DIQ LOGLBL+34, LOGLBL+35
$$CHKRX^PSOBAI REP+10
DEVBAR^PSOBMST PSOLBLN+10
$$STATUS^PSOBPSUT LOGLBL+19
$$PRINTMG^PSOFDAMG L12+10
$$MGONFILE^PSOFDAUT L12+7, REP+16, REP+18
^PSOLBL2 ST+30
KILL^PSOLBL2 END+2
REP^PSOLBL2 ST+35
TRAIL^PSOLBL2 REP+24
WARN^PSOLBL2 L13
^PSOLBLN1 L1+15
ALLWARN^PSOLBLN1 REP+20, REP+22
ALL^PSOLBLS REP+21, REP+22
$$FIND^PSOREJUT LOGLBL+41
^PSORFL ST+30
RFLDT^PSORFL ST+30
$$ZZ^PSOSUTL ST+13
PSOSTALK^PSOTALK1 PSOLBLN+9
CHCK2^PSOTRLBL REP+23
ADD^VADPT PSOLBLN+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "(PARTIAL)"
  • Condition for execution: $G(RXP)
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !?3,$P(PS2,"^",2)," ",$P(PS,"^",3),"-",$P(PS,"^",4)," ",TECH,?54,$P(PS2,"^",2)," ",$P(PS,"^",3),"-",$P(PS,"^",4)," ",TECH,?102,$P(PS2,"^",2)," ",TECH," ",NOW
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9),?54,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9),?102,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9)
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,PNM," ",$G(SSNPN),?54,PNM," ",$G(SSNPN),?102,PNM," ",$G(SSNPN)
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !,$G(SGY(DR)),?54,$G(SGY(DR)),?102,$S($G(OSGY(DR))]"":OSGY(DR),1:$G(SGY(DR)))
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: L1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+8
Function Call: WRITE
  • Prompt: !,$G(PHYS),?54,$G(PHYS),?102,$G(PHYS)
  • Line Location: L1+9
Function Call: WRITE
  • Prompt: !,"Qty: "_$G(QTY)," ",$G(PSDU),?54,"Qty: "_$G(QTY)," ",$G(PSDU),?102,"Qty: "_$G(QTY)," ",$G(PSDU)
  • Line Location: L1+11
Function Call: WRITE
  • Prompt: !,DRUG,?54,DRUG,?102,DRUG
  • Line Location: L1+13
Function Call: WRITE
  • Prompt: !,$S($G(PSOSTALK):ZTKDRUG,1:DRUG),?54,DRUG,?102,DRUG
  • Line Location: L1+14
Function Call: WRITE
  • Prompt: !?54,$P(RXY,"^",9)-RXF," Refills remain prior to ",EXPDT,?102,"Mfg "_$G(MFG)_" Lot# "_$G(LOT)
  • Line Location: L1+17
Function Call: WRITE
  • Prompt: !?54,"Last fill prior to ",$G(EXPDT),?102,"Mfg "_$G(MFG)_" Lot# "_$G(LOT)
  • Line Location: L11+0
Function Call: WRITE
  • Prompt: !,$P(PS,"^",2),?54,$S($L($G(COPAYVAR)):$G(COPAYVAR)_" ",1:""),"Days Supply: ",$G(DAYS),?102,"Tech__________RPh_________",!,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP)
  • Line Location: L12+0
Function Call: WRITE
  • Prompt: ?54,@PSOBAR1,X2,@PSOBAR0,$C(13)
  • Line Location: L12+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOST["P-MT661BC"
  • Line Location: L12+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: L12+3
Function Call: WRITE
  • Prompt: !,"ADDRESS SERVICE REQUESTED"
  • Line Location: L12+4
Function Call: WRITE
  • Prompt: ?102,"Read FDA Med Guide"
  • Line Location: L12+8
Function Call: WRITE
  • Prompt: !,?21,"CERTIFIED MAIL"
  • Condition for execution: "C"[$E(MW)
  • Line Location: L12+12
Function Call: WRITE
  • Prompt: !?54,$G(VAPA(1))
  • Line Location: L12+12
Function Call: WRITE
  • Prompt: !,$S($G(PS55)=2:"***DO NOT MAIL***",1:"***CRITICAL MEDICAL SHIPMENT***"),?54,$G(ADDR(2)),?102,"Routing: "_$S("W"[$E(MW):MW,1:MW_" MAIL")
  • Line Location: L12+13
Function Call: WRITE
  • Prompt: !?54,$G(ADDR(3)),?102,"Days supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"**NON-SFTY**",1:"SAFETY")
  • Line Location: L12+14
Function Call: WRITE
  • Prompt: !?54,$G(ADDR(4)),?102,"Isd: ",ISD," Exp: ",EXPDT
  • Line Location: L12+15
Function Call: WRITE
  • Prompt: !,PNM,?54,"*Indicate address change on back of this form",?102,"Last Fill: ",$G(PSOLASTF)
  • Line Location: L12+16
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(1)):PSMP(1),1:$G(VAPA(1))),?54,"[ ] Permanent",?102,"Pat. Stat ",PATST," Clinic: ",PSCLN
  • Line Location: L12+17
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(3)):PSMP(3),$D(PSMP(1)):"",1:$G(ADDR(3))),!,$S($D(PSMP(4)):PSMP(4),$D(PSMP(1)):"",1:$G(ADDR(4))),?54,"Signature",ULN
  • Line Location: L12+19
Function Call: WRITE
  • Prompt: ?102,@PSOBAR1,X2,@PSOBAR0,$C(13)
  • Line Location: L12+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: L13+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ST+36, ST+37
^DIC(5 - [#5] ST+12
^DPT - [#2] ST+9
^PS(53 - [#53] ST+31
^PS(55 - [#55] ST+9, ST+25
^PS(59 - [#59] ST+9
^PSDRUG - [#50] ST+13, L1+10
^PSRX - [#52] STST+1, ST+6, ST+7, ST+9, ST+11, ST+14, ST+15, ST+16, ST+18
ST+19, ST+21, ST+22, ST+30*, ST+32, ST+33, ST+36, ST+38, L1+10, REP+1
REP+2, REP+3*, REP+4*, REP+13*, REP+14*, REP+18*, REP+19*
^SC - [#44] ST+32
^VA(200 - [#200] ST+1

Label References

Name Line Occurrences
L11 L1+16
L12 L1+17
L13 L1+15
LOGLBL REP+7
REP ST+35
ST PSOLBLN+15, PSOLBLN+16, PSOLBLN+17, REP

Naked Globals

Name Field # of Occurrence
^("IB" ST+9
^(0 STST+9, ST+12, ST+13, ST+18, ST+21, ST+25, ST+32
^(1 ST+9
^(2 ST+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ST+37, REP+1!
%H REP+1!
%I REP+1!
>> ADDR(2 PSOLBLN+15*, PSOLBLN+16*, PSOLBLN+17*, PSOLBLN+18*, L12+13, L12+18
>> ADDR(22 PSOLBLN+13*, PSOLBLN+14*, PSOLBLN+15
>> ADDR(3 PSOLBLN+15*, PSOLBLN+16*, PSOLBLN+17*, PSOLBLN+18*, L12+14, L12+19
>> ADDR(33 PSOLBLN+13*, PSOLBLN+14*, PSOLBLN+15
>> ADDR(4 PSOLBLN+15*, PSOLBLN+16*, PSOLBLN+17*, L12+15, L12+19
>> COPAYVAR L12
>> COPIES PSOLBLN+12*, ST+35*, REP
>> DATE ST+30*, ST+37*, L1+2
>> DAYS L12L12+14
>> DEA ST+13*, ST+31
>> DFN PSOLBLN+11, ST+7*, ST+9, ST+25
>> DIFF ST+36*, L1+16
>> DR L1+4*, L1+6, L1+7, L1+8
>> DRUG ST+13*, L1+13, L1+14
DT ST+26, ST+33, ST+36
>> EXDT ST+11*
>> EXPDT ST+11*, ST+36*, L1+17, L11L12+15
FDA REP+2*, REP+19!
FDAMG L12+10~*
>> FDT ST+9*, ST+17*, ST+18*, ST+21*, ST+30
>> GG L1+5*
>> HH L1+6*
I ST+18*, ST+21*, REP+1*, REP+19!
>> II ST+30*
IOF L13+1
>> IOS PSOLBLN+10
IOST L12+2
IR REP+2*, REP+3*, REP+4, REP+13*, REP+14, REP+18, REP+19!
>> ISD ST+7*, ST+36*, L12+15
>> KK L1+6*
>> LINE ST+7*
>> LOT L1+17, L11
>> MFG L1+17, L11
>> MW ST+18*, ST+21*, ST+22, ST+27*, ST+28*, L12+12, L12+13, REP+14
NOW ST+37*, L1+1, REP+1*, REP+4, REP+14, REP+19!
>> NURSE ST+9*, L1+10
>> OSGY( L1+4
>> PATST ST+31*, ST+33*, L12+17
>> PCOMH( REP+4, REP+19!
>> PCOMX REP+4
>> PDUZ REP+4, REP+14
>> PHYS ST+1*, L1+9
>> PNM L1+3, L12+16
>> PRTFL ST+31*
>> PS ST+9*, ST+10, ST+12, ST+39, L1L1+1, L12
>> PS1 ST+9*
>> PS2 ST+10*, L1+1
>> PS55 ST+25*, ST+26*, ST+27, ST+29, L12+13
>> PS55X ST+25*, ST+26
>> PSCAP ST+25*, L12+14
>> PSCLN ST+32*, L12+17
>> PSDFNFLG L13REP+20, REP+21, REP+23
PSDU L1+10*, L1+11, L1+13!, L1+14!
>> PSI ST+23*, ST+24
PSJ ST+23~*
PSMF L1+10*, L1+13!, L1+14!
>> PSMP ST+22*, ST+23
>> PSMP( ST+23*, ST+24!
>> PSMP(1 ST+29*, L12+17, L12+18, L12+19
>> PSMP(2 L12+18
>> PSMP(3 L12+19
>> PSMP(4 L12+19
PSOBADR REP+9~, REP+10*, REP+11*, REP+12
>> PSOBAR0 PSOLBLN+10, L12+2, L12+20
>> PSOBAR1 PSOLBLN+10, L12+2, L12+20
>> PSOBARS PSOLBLN+10, L12+2, L12+20
>> PSOBLALL ST+3, L1L13REP+22, REP+23, REP+24
>> PSOBLRX ST+3*
PSOCD LOGLBL+11~, LOGLBL+50*, LOGLBL+51
PSODT LOGLBL+11~, LOGLBL+50*, LOGLBL+51
>> PSOEXREP ST+5
>> PSOFDAPT L12+10
PSOFND LOGLBL+11~, LOGLBL+41*, LOGLBL+44
>> PSOHZIP ST+39*, L1L12
PSOIEN59 LOGLBL+11~, LOGLBL+15*, LOGLBL+16, LOGLBL+20, LOGLBL+22, LOGLBL+36, LOGLBL+38, LOGLBL+44, LOGLBL+51
>> PSOINST L12+2, L12+20
>> PSOIOS PSOLBLN+10*
>> PSOLAPPL L13REP+20, REP+21, REP+23
>> PSOLASTF L12+16
>> PSOLBLDR ST+8*
>> PSOLBLPS ST+8*
PSOLOG LOGLBL+11~, LOGLBL+34*, LOGLBL+35*, LOGLBL+36
>> PSOONEVA L1REP+4
PSOORD LOGLBL+11~, LOGLBL+33*, LOGLBL+34, LOGLBL+35
>> PSOPAR ST+38, L12+2, REP+23
>> PSOPROV ST*, ST+1
PSOREJDATA LOGLBL+11~, LOGLBL+41
PSOREJDATA( LOGLBL+49, LOGLBL+50
PSORESP LOGLBL~, LOGLBL+18
PSORIEN LOGLBL+11~, LOGLBL+48*, LOGLBL+49*, LOGLBL+50
PSORX LOGLBL~, LOGLBL+15, LOGLBL+19, LOGLBL+41
PSORXF LOGLBL~, LOGLBL+15, LOGLBL+19, LOGLBL+41
>> PSOSITE ST+9
>> PSOSITE7 ST+9*
>> PSOSTALK L1+14
PSOSTAT LOGLBL+11~, LOGLBL+18*, LOGLBL+19*, LOGLBL+20
PSOSTLK PSOLBLN+9!*, L1+13, L1+14
>> PSOSUREP ST+5
PSOTEMP REP+9~, REP+11*, REP+12
>> PSOTRAIL ST+35*
>> PSSPND REP+23
>> PSZIP ST+39*
>> QTY L1+11
>> REF ST+30*, ST+31, ST+33*
>> REPRINT ST+4*, ST+5*, L1L12+9, REP+4
>> RESP REP+7
>> RX STST+1, ST+3, ST+4, ST+5, ST+6, ST+7, ST+9, ST+11, ST+13
ST+14, ST+15, ST+16, ST+18, ST+19, ST+21, ST+22, ST+30, ST+32, ST+33
ST+36, ST+38, L1+10, L12+2, L12+7, L12+9, L12+10, L12+20, REP+1, REP+2
REP+3, REP+4, REP+7, REP+10, REP+13, REP+14, REP+16, REP+17, REP+18, REP+19
END+1
RXF STST+7*, ST+18*, ST+21*, ST+30, L1+2, L1+15, L1+17, REP+1*, REP+4
REP+7, REP+14, REP+19!
>> RXFL( ST+18, ST+19!, ST+21, END+1*
RXFLX END+1!
RXFLX( END+1
>> RXN ST+7*, L1+2
>> RXP STST+4*, ST+14, ST+15*, ST+16, ST+17, ST+18, ST+21, ST+30, L1
REP+4, REP+14
>> RXPI ST+14*, REP+4, REP+14
>> RXPR( ST+4
>> RXRP( ST+4, ST+5*, L12+9, REP+17
>> RXSTA ST+6*
>> RXY ST+6*, ST+7, ST+8, ST+13, ST+16*, ST+18, ST+30, ST+31, ST+32, ST+33
ST+38, L1+2, L1+15, L1+17
>> SGY( L1+4
>> SIDE ST+35, REP*
>> SIG ST+7*
>> SSNPN ST+29, L1+3
>> STATE ST+12*, L1L12
>> TECH ST+38*, L1+1
U LOGLBL+18, LOGLBL+22, LOGLBL+33
>> ULN ST+35*, L12+19
>> VAPA(1 L12+12, L12+17
>> VAPA(10 L12+18
>> VAPA(11 PSOLBLN+13
>> VAPA(2 PSOLBLN+14, PSOLBLN+15, PSOLBLN+16, PSOLBLN+17, PSOLBLN+18
>> VAPA(3 PSOLBLN+14, PSOLBLN+15, PSOLBLN+16, PSOLBLN+17, PSOLBLN+18
>> VAPA(4 PSOLBLN+13
>> VAPA(5 PSOLBLN+13
>> VAPA(6 PSOLBLN+13
>> VRPH ST+32*, ST+33*, ST+38
>> WARN ST+13*, L12+18, L13REP+20, REP+21, REP+22
>> X ST+25*, ST+33, ST+36, L12+2*, L12+20*
>> X1 ST+33*, ST+36*, L12+2*, L12+20*
>> X2 ST+33*, ST+36*, L12+2*, L12+20*
>> XQORNOD(0 LOGLBL+32, LOGLBL+33
>> XQY0 LOGLBL+22
>> Y ST+36*, ST+37*
ZTKDRUG PSOLBLN+9!, L1+12*, L1+14
>> ZY ST+7*

Marked Items

Name Field # of Occurrence
$T( LOGLBL+20, LOGLBL+22, LOGLBL+36, LOGLBL+38, LOGLBL+44, LOGLBL+51
$T(PSOSTALK^PSOTALK1 PSOLBLN+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All