Routine: PSOCAN1

Information

PSOCAN1 ;BIR/BHW - modular rx cancel with speed cancel ability ;2/22/93

Call Graph

Call Graph Total: 18

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

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSOCAN PSOCAN2 PSOCAN3 PSOCAN4
IHS Changes To Pharmacy	1	APSPCAN

Entry Points

Name	Comments	DBIA/ICR reference
PAT
AREC
SHOW
SPEED
BC
RTESTA	;
KILL
PSPEED
LISTPAT
PEN	;discontinue pending orders
COM
PSHOW
ACT
ASK
INVALD
LINE
NAM
SPEED1
SHOW1	;S LC=LC+3 I LC>20 R !,"Press return to continue",X:DTIME G:X'="" SHOW1 S LC=0
RTEST	;

External References

Name	Field # of Occurrence
NOW^%DTC	NAM+10, AREC+2
^DIC	NAM, LISTPAT
FILE^DIE	NAM+14
^DIR	PAT+2, BC, NAM+4, LINE+2, SHOW1+1, ASK, INVALD+2, COM+5
^PSOBUILD	NAM+1
^PSOCAN	PAT+2
CAN^PSOCAN	ACT+1
CHK^PSOCAN	NAM+1
DIV^PSOCAN	SPEED1
ULP^PSOCAN	NAM+4, NAM+5, NAM+17, LINE+2, LINE+6
KILL^PSOCAN2	KILL
REINS^PSOCAN2	ACT
KCAN^PSOCAN3	NAM
KCAN1^PSOCAN3	BC
NOOR^PSOCAN4	COM+7
ICN^PSODPT	BC+3
^PSODSPL	NAM+1
EXP^PSOHELP1	AREC+4
EN^PSOHLSN	PEN+3
EN^PSOHLUP	NAM
LOCK^PSOORCPY	NAM+2
ADR^PSOPKIV1	AREC+3
PSOINST^PSOSUPAT	BC+1
$$L^PSSLOCK	NAM+2
PSOL^PSSLOCK	NAM+18, SPEED+2, ASK+2
PSOUL^PSSLOCK	NAM+18, SPEED+2, 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+3
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	Prompt: "Press return to continue" Formatting: ! Timeout: DTIME Variable: X 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, 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+0
Routine Call	DIC Line Location: NAM LISTPAT
Routine Call	DIE Line Location: NAM+14
Routine Call	DIR Line Location: PAT+2 BC NAM+4 LINE+2 SHOW1+1 ASK INVALD+2 COM+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

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+3, SPEED1+4 , AREC, AREC+1, AREC+2*, SPEED+3, ACT, RTEST+6, RTESTA+3

Label References

Name	Line Occurrences
ACT	ASK+2
ASK	NAM+17
BC	BC+5, LINE+6
COM	NAM+5, SPEED
INVALD	SPEED+4, ASK, ASK+1, ASK+3
KILL	LINE+2, INVALD+3
LINE	NAM+5, LINE+2
NAM	NAM+1, NAM+5, LINE+6
PAT	BC, NAM, NAM+2, NAM+4, NAM+17
PEN	NAM+18, SPEED+2
PSPEED	NAM+16
RTEST	LINE+6
RTESTA	NAM+5
SHOW	SPEED+4
SHOW1	PSHOW+1
SPEED	LINE+6
SPEED1	PSPEED, SPEED+3

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NAM+13, AREC+2
>> ACNT	AREC*, AREC+2, AREC+3
>> ACOM	AREC+2*
>> ALL	NAM+5*
ASKED	PAT!
BC	PAT!, PAT+2*, BC, NAM, LINE+6
>> BCNUM	BC*, BC+1
>> CNT	LINE+3, LINE+4, LINE+5*
>> DA	NAM+7, NAM+18, PSPEED, SHOW, PSHOW, SPEED1, SPEED1+1, SPEED1+3, SPEED1+5, AREC , AREC+1, AREC+2, SPEED, SPEED+1, SPEED+2, SPEED+3, SPEED+4, ACT, PEN+1, PEN+2 , PEN+3, PEN+4
>> DEAD	NAM+1, AREC
DELCNT	PAT!
DIC	NAM!, LISTPAT!
DIC(0	NAM, LISTPAT
DIR	PAT+2!, BC!, NAM+4!, LINE+2!, SHOW1+1!, ASK!, INVALD+2!, COM+5!, COM+6!
DIR("?"	PAT+1, BC, NAM+4, LINE, LINE+1, LINE+2, SHOW1+1, COM+3
DIR("A"	PAT, BC, NAM+3, LINE, SHOW1+1, ASK, INVALD+2, COM+2
DIR("B"	ASK, COM+4
DIR(0	PAT, BC, NAM+3, LINE, SHOW1+1, ASK, INVALD+2, COM+2
DIRUT	PAT+2, BC, NAM+4, NAM+5, LINE+2, SHOW1+1!, SPEED, ASK, INVALD+2!, COM+5 , COM+6!
>> DRG	NAM+6, NAM+7, LINE+3, LINE+4, PSPEED, SHOW, PSHOW
>> DRUG	NAM+6*
DTOUT	NAM, SHOW1+1!, INVALD+2!, COM+5!, COM+6!
DUOUT	NAM, SHOW1+1!, INVALD+2!, COM+5!, COM+6!
DUZ	AREC+2
>> I	INVALD*
>> II	NAM+6, SPEED, SPEED+4, ACT, INVALD+1*
>> IN	NAM+6, LINE+3, LINE+5*, SPEED
>> INCOM	NAM+5, AREC+2, SPEED, COM+4, COM+6*, 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+1!
>> 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+6!, NAM+17!, NAM+18*
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+3*, SPEED~, INVALD+1
>> PKIR	AREC+3, COM+2, COM+6*
>> PLINE	LINE+5*
PSCAN	LINE+3!, SPEED!, SPEED+4, ASK, ASK+1!, INVALD!
PSCAN(	SPEED1+5*, AREC, SPEED+4, ASK+2, ACT
>> PSFROM	NAM+1*
PSINV	SPEED!, INVALD, INVALD+2!
PSINV(	PSPEED, SPEED1+3, SPEED1+4, SPEED+3*, INVALD+1
PSOCAN	LINE+3!
PSOCAN(	LINE+4*, LINE+5, RTEST+5, RTEST+6, RTEST+7
PSOCANPN	NAM+6!, NAM+15*, NAM+17!
>> 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+2, NAM+12, NAM+13, ACT*
>> PSODIV	SPEED1
>> PSOERR	INVALD+2
>> PSOHI	LINE
PSOLOUD	NAM*!
PSOMSG	NAM+18, SPEED+2, ASK+2, KILL+1!
PSONEW	NAM+1~
>> PSONOOR	PEN+3
>> PSOOI	NAM+12, NAM+13
>> PSOOPT	NAM+1*
PSOPLCK	NAM+2*!, KILL+1!
PSORX	NAM+1~
PSOSD	NAM+1!, LINE
PSOSD(	NAM+6, NAM+7, LINE+4, PSPEED, RTESTA+2, RTESTA+3, RTESTA+4
PSOSDX	NAM+6!, NAM+17!
PSOSDX(	NAM+7*, NAM+18
PSOSDX(0	NAM+17, ASK, ASK+1
PSOSDXY	NAM+6!, NAM+17!, ASK, ASK+1
>> PSOSITE	SPEED1
PSOULRX	KILL+1!
PSOWUN	KILL+1!
>> PSPOP	PSPEED, SPEED1*, SPEED1+4, SPEED1+5
>> REA	NAM+17, PSPEED+1, PSHOW+1, SPEED1+1, SPEED1+2, SPEED1+3, SPEED1+4, SPEED1+5, AREC, AREC+2 , SPEED+4, ASK, ACT
>> RF	AREC+1*
>> RFCNT	AREC+1*, AREC+2
>> RX	BC+1, BC+2, BC+4, PSPEED, SPEED1+3, SPEED1+4, SPEED1+5, SPEED+3, ASK+2, ACT
>> RXCNT	PAT, SPEED1+5, SPEED+4*, ASK
SPEED	NAM+6*, NAM+17!, PSPEED+1, SPEED1, SPEED1+2, INVALD+2
>> STA	NAM+6, NAM+7, NAM+9, LINE+3, LINE+4*, PSPEED
STAT	SPEED1+1!*
>> SUB	AREC*
TMP	NAM+11~
TMP(	NAM+12, NAM+13
WARN	PAT!
X	PAT!, LISTPAT*
Y	PAT+2, BC, NAM, NAM+5, LINE+2, LINE+3, ASK+1, COM+5!, COM+6
>> YY	PSPEED, SPEED1+4, SPEED+3

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCAN1

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

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: