Routine: PSOCAN1

Package	Total	Call Graph
Outpatient Pharmacy	15	^PSOBUILD (,CAN,CHK,DIV,ULP)^PSOCAN (KILL,REINS)^PSOCAN2 (KCAN,KCAN1)^PSOCAN3 NOOR^PSOCAN4 ICN^PSODPT ^PSODSPL EXP^PSOHELP1 EN^PSOHLSN EN^PSOHLUP DCORD^PSONEW2 LOCK^PSOORCPY ADR^PSOPKIV1 PSOINST^PSOSUPAT $$CONJ^PSOUTL
VA FileMan	5	NOW^%DTC ^DIC FILE^DIE $$GET1^DIQ ^DIR
Pharmacy Data Management	1	($$L,PSOL,PSOUL)^PSSLOCK

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSOCAN PSOCAN2 PSOCAN3 PSOCAN4 PSOREJU1

Entry Points

Name	Comments	DBIA/ICR reference
PAT
BC
NAM
LINE
PSPEED
SHOW
PSHOW
SHOW1	;S LC=LC+3 I LC>20 R !,"Press return to continue",X:DTIME G:X'="" SHOW1 S LC=0
SPEED1
AREC
SPEED	;
ASK
ACT
INVALD
LISTPAT
COM	; ; PSO7508 - if this is an eRx, set the comments and nature of order and quit - no user interaction
KILL
PEN	;discontinue pending orders
RTEST	;
RTESTA	;
ONOFF	;

External References

Name	Field # of Occurrence
NOW^%DTC	NAM+13, AREC+2
^DIC	NAM, LISTPAT
FILE^DIE	NAM+17
$$GET1^DIQ	COM+3
^DIR	PAT+2, BC, NAM+7, LINE+2, SHOW1+1, ASK, INVALD+2, COM+13
^PSOBUILD	NAM+3
^PSOCAN	PAT+2
CAN^PSOCAN	ACT+1
CHK^PSOCAN	NAM+3
DIV^PSOCAN	SPEED1
ULP^PSOCAN	NAM+7, NAM+8, NAM+20, LINE+2, LINE+6
KILL^PSOCAN2	KILL
REINS^PSOCAN2	ACT
KCAN^PSOCAN3	NAM
KCAN1^PSOCAN3	BC
NOOR^PSOCAN4	COM+15
ICN^PSODPT	BC+3
^PSODSPL	NAM+3
EXP^PSOHELP1	AREC+4
EN^PSOHLSN	PEN+3
EN^PSOHLUP	NAM
DCORD^PSONEW2	ACT
LOCK^PSOORCPY	NAM+5
ADR^PSOPKIV1	AREC+3
PSOINST^PSOSUPAT	BC+1
$$CONJ^PSOUTL	SPEED1+2
$$L^PSSLOCK	NAM+5
PSOL^PSSLOCK	NAM+21, SPEED+3, ASK+2
PSOUL^PSSLOCK	NAM+21, SPEED+3, ASK+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAT+0
Function Call: WRITE	Prompt: ! Line Location: BC+0
Function Call: WRITE	Prompt: " ",$P($G(^DPT(PSODFN,0)),"^") Line Location: BC+2
Function Call: WRITE	Prompt: !,$C(7),"No Prescription record for this barcode." Line Location: BC+4
Function Call: WRITE	Prompt: ! Line Location: NAM+6
Function Call: WRITE	Prompt: !! Line Location: LINE+0
Function Call: WRITE	Prompt: !?53,$C(7),"INVALID LINE NUMBER(S)." Line Location: LINE+2
Function Call: WRITE	Prompt: !,$P(^PSRX(DA,0),"^")," ",DRG,?52,$S($D(^DPT(+$P(^PSRX(DA,0),"^",2),0)):$P(^(0),"^"),1:"PATIENT UNKNOWN") Line Location: PSHOW+0
Function Call: WRITE	Prompt: !?25,"Rx to be Discontinued",! Line Location: PSHOW+1
Function Call: WRITE	Prompt: !?21,"* Rx to be Reinstated *",! Line Location: PSHOW+2
Function Call: READ	Formatting: ! Prompt: "Press return to continue" Variable: X Timeout: DTIME Line Location: SHOW1+0
Function Call: WRITE	Prompt: @IOF Line Location: SHOW1+1
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: !! Line Location: INVALD+0
Function Call: WRITE	Prompt: "=" Line Location: INVALD+0
Function Call: WRITE	Prompt: $C(7),!!,"The Following Rx Number(s) Are Invalid Choices, Expired, "_$S($G(PKI):"Digitally Signed",1:""),!,"Discontinued by Provider, invalid except conjunction or Marked As Deleted:" Line Location: INVALD+1
Function Call: WRITE	Prompt: !?10,II Line Location: INVALD+1
Function Call: WRITE	Prompt: ! Line Location: COM+8
Routine Call	DIC Line Location: NAM LISTPAT
Routine Call	DIE Line Location: NAM+17
Routine Call	DIR Line Location: PAT+2 BC NAM+7 LINE+2 SHOW1+1 ASK INVALD+2 COM+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PS(52.49 - [#52.49]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BC+2, PSHOW
^PS(52.41 - [#52.41]	PEN+2!*, PEN+3, RTEST+7, RTESTA+4
^PS(55 - [#55]	NAM
^PSDRUG - [#50]	SHOW
^PSRX - [#52]	BC+1, BC+2, BC+4, PSPEED, SHOW, PSHOW, SPEED1, SPEED1+1, SPEED1+4, SPEED1+5 , AREC, AREC+1, AREC+2*, SPEED+4, ACT, RTEST+6, RTESTA+3

Label References

Name	Line Occurrences
ACT	ASK+2
ASK	NAM+20
BC	BC+5, LINE+6
COM	NAM+8, SPEED+1
INVALD	SPEED+5, SPEED+6, ASK, ASK+1, ASK+3
KILL	LINE+2, INVALD+3
LINE	NAM+8, LINE+2
NAM	NAM+3, NAM+8, LINE+6
ONOFF	NAM+4
PAT	BC, NAM, NAM+5, NAM+7, NAM+20
PEN	NAM+21, SPEED+3
PSPEED	NAM+19
RTEST	LINE+6
RTESTA	NAM+8
SHOW	SPEED+6
SHOW1	PSHOW+1
SPEED	LINE+6
SPEED1	PSPEED, SPEED+4

Naked Globals

Name	Field # of Occurrence
^("STA"	SPEED1+5
^(0	SHOW, PSHOW, SPEED+4, RTESTA+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NAM+16, AREC+2
>> ACNT	AREC*, AREC+2, AREC+3
>> ACOM	AREC+2*
>> ALL	NAM+8*, SPEED+5
ASKED	PAT!
BC	PAT!, PAT+2*, BC, NAM, LINE+6
>> BCNUM	BC*, BC+1
>> CNT	LINE+3, LINE+4, LINE+5*
>> DA	NAM+10, NAM+21, PSPEED, SHOW, PSHOW, SPEED1, SPEED1+1, SPEED1+2, SPEED1+4, SPEED1+6 , AREC, AREC+1, AREC+2, SPEED+1, SPEED+2, SPEED+3, SPEED+4, SPEED+6, ACT, PEN+1 , PEN+2, PEN+3, PEN+4
>> DEAD	NAM+3, AREC
DELCNT	PAT!
DIC	NAM!, LISTPAT!
DIC(0	NAM, LISTPAT
DIR	PAT+2!, BC!, NAM+7!, LINE+2!, SHOW1+1!, ASK!, INVALD+2!, COM+13!, COM+14!
DIR("?"	PAT+1, BC, NAM+7, LINE, LINE+1, LINE+2, SHOW1+1, COM+11
DIR("A"	PAT, BC, NAM+6, LINE, SHOW1+1, ASK, INVALD+2, COM+10
DIR("B"	ASK, COM+12
DIR(0	PAT, BC, NAM+6, LINE, SHOW1+1, ASK, INVALD+2, COM+10
DIRUT	PAT+2, BC, NAM+7, NAM+8, LINE+2, SHOW1+1!, SPEED+1, ASK, INVALD+2!, COM+13 , COM+14!
>> DRG	NAM+9, NAM+10, LINE+3, LINE+4, PSPEED, SHOW, PSHOW
>> DRUG	NAM+9*
DTOUT	NAM, SHOW1+1!, INVALD+2!, COM+13!, COM+14!
DUOUT	NAM, SHOW1+1!, INVALD+2!, COM+13!, COM+14!
DUZ	AREC+2
>> ERXDCIEN	COM+2, COM+3
>> I	INVALD*
>> II	NAM+9, SPEED+1, SPEED+6, ACT, INVALD+1*
>> IN	NAM+9, LINE+3, LINE+5*, SPEED+1
>> INCOM	NAM+8, AREC+2, SPEED+1, COM+3, COM+4, COM+12, COM+14*, PEN+2, PEN+3
IOF	SHOW1+1
IOSL	SHOW1+1
J	AREC+3~*
>> LC	PSHOW*
>> LINE	LINE+3*, LINE+5, RTEST+1, RTEST+3
MSG	AREC+2, COM+9!
>> OUT	BC, BC+1, BC+4, BC+5
PCIN	RTEST+2~, RTEST+3*
PCINFLAG	RTEST+2~, RTEST+3, RTEST+6, RTEST+7*, RTEST+8
PCINX	RTEST+2~, RTEST+3*, RTEST+4, RTEST+5, RTEST+6, RTEST+7
PENCAN	NAM+9!, NAM+20!, NAM+21*
PFIN	RTESTA+1~, RTESTA+2*, RTESTA+3, RTESTA+4
PFINFLAG	RTESTA+1~, RTESTA+2, RTESTA+3, RTESTA+4*, RTESTA+5
PFINZ	RTESTA+1~, RTESTA+2*, RTESTA+3, RTESTA+4
PKI	SPEED1+4*, SPEED+1~, INVALD+1
>> PKIR	AREC+3, COM+10, COM+14*
>> PLINE	LINE+5*
PSCAN	LINE+3!, SPEED+1!, SPEED+6, ASK, ASK+1!, INVALD!
PSCAN(	SPEED1+6*, AREC, SPEED+6, ASK+2, ACT
>> PSFROM	NAM+3*
PSINV	SPEED+1!, INVALD, INVALD+2!
PSINV(	PSPEED, SPEED1+2, SPEED1+4, SPEED1+5, SPEED+4, SPEED+5, INVALD+1
PSOCAN	LINE+3!
PSOCAN(	LINE+4*, LINE+5, RTEST+5, RTEST+6, RTEST+7
PSOCANPN	NAM+9!, NAM+18*, NAM+20!
>> PSOCANRA	NAM*
>> PSOCANRD	RTEST+6, RTEST+7, RTESTA+3, RTESTA+4
>> PSOCANRZ	RTEST+8, RTESTA+5
PSODAPND	PEN+1*, PEN+4!
PSODFN	PAT!, BC+2, BC+3, NAM, NAM+1, NAM+5, NAM+15, NAM+16, ACT*
>> PSODIV	SPEED1
>> PSOERR	INVALD+2
>> PSOHI	LINE
PSOLOUD	NAM*!
PSOMSG	NAM+21, SPEED+3, ASK+2, KILL+1!
PSONEW	NAM+3~
>> PSONOOR	PEN+3
>> PSOODOSP	NAM+1*
>> PSOOI	NAM+15, NAM+16
>> PSOONOFO	NAM+2*
>> PSOONOR	COM+6*
>> PSOOPT	NAM+3*
PSOPLCK	NAM+5*!, KILL+1!
PSOREINF	NAM+1!, NAM+2, ONOFF+1, ONOFF+2*
PSORX	NAM+3~
PSORX("DFLG"	ACT
PSORX("DOSING	INFO" , NAM+2, ONOFF+1*, ONOFF+2, OFF" , NAM+1!
PSOSD	NAM+3!, LINE
PSOSD(	NAM+9, NAM+10, LINE+4, PSPEED, RTESTA+2, RTESTA+3, RTESTA+4
PSOSDX	NAM+9!, NAM+20!
PSOSDX(	NAM+10*, NAM+21
PSOSDX(0	NAM+20, ASK, ASK+1
PSOSDXY	NAM+9!, NAM+20!, ASK, ASK+1
>> PSOSITE	SPEED1
PSOULRX	KILL+1!
PSOWUN	KILL+1!
>> PSPOP	PSPEED, SPEED1*, SPEED1+5, SPEED1+6
>> REA	NAM+20, PSPEED+1, PSHOW+1, SPEED1+1, SPEED1+3, SPEED1+4, SPEED1+5, SPEED1+6, AREC, AREC+2 , SPEED+6, ASK, ACT
>> RF	AREC+1*
>> RFCNT	AREC+1*, AREC+2
>> RX	BC+1, BC+2, BC+4, PSPEED, SPEED1+2, SPEED1+4, SPEED1+5, SPEED1+6, SPEED+4, SPEED+5 , ASK+2, ACT
>> RXCNT	PAT, SPEED1+6, SPEED+6*, ASK
SPEED	NAM+9*, NAM+20!, PSPEED+1, SPEED1, SPEED1+3, INVALD+2
>> STA	NAM+9, NAM+10, NAM+12, LINE+3, LINE+4*, PSPEED
STAT	SPEED1+1!*
>> SUB	AREC*
TMP	NAM+14~
TMP(	NAM+15, NAM+16
WARN	PAT!
X	PAT!, LISTPAT*
Y	PAT+2, BC, NAM, NAM+8, LINE+2, LINE+3, ASK+1, COM+13!, COM+14
>> YY	PSPEED, SPEED1+5, SPEED+4

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCAN1

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: