Routine: PSOUTL

Information

PSOUTL ;BHAM ISC/SAB - pso utility routine ;29-May-2012 15:16;PLS

Source Information

Source file <PSOUTL.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	6	^%DT NOW^%DTC EN^DDIOL ^DIE ^DIK ^DIR
Outpatient Pharmacy	3	REF^PSOCAN2 (KCMPX,SCMPX)^PSOCMOP ($$REFIP,WARN1)^PSOUTLA1
IHS Changes To Pharmacy	1	$$ISSCH^APSPFNC2
Integrated Billing	1	$$SERV^IBARX1

Caller Graph

Caller Graph Total: 24

Package	Total	Caller Graph
Outpatient Pharmacy	23	^PSRX PARTIAL DATE PSOBUILD PSOCAN PSOCAN2 PSOCSRL PSODISP PSODISP3 PSODISPS PSODRDUP PSOHLNE1 PSOHLNEW PSOHLUP PSOHLUP1 PSOORDRG PSOORUT1 PSOORUTL PSOPOST PSOVERC PSOXZA11 PSOXZA4 REFILL ^PS(59
IHS Changes To Pharmacy	1	APSPRIS

Entry Points

External References

Name	Field # of Occurrence
^%DT	CID+5, CIDH+3
NOW^%DTC	KILL+16
$$ISSCH^APSPFNC2	CIDADJ+4
EN^DDIOL	CIDH+3, IBSS+7, WARN+2, WARN+4, WARN+5, WARN+11, WARN+15, WARN+16, WARN+20, WARN+21 , WARN+22
^DIE	IBSSR
^DIK	CAN+3, CAN+4, ECAN+3, ECAN+4
^DIR	WARN+28
$$SERV^IBARX1	IBSSR
REF^PSOCAN2	CAN+3
KCMPX^PSOCMOP	K52+4, KILL+11, KILL+12
SCMPX^PSOCMOP	S52+4
$$REFIP^PSOUTLA1	WARN+19
WARN1^PSOUTLA1	WARN1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Enter the item #(s) or RX #(s) you wish to ",$S(PSFROM="N":"renew ",PSFROM="R":"REFILL "),"separated by commas." Line Location: QUES+1
Function Call: WRITE	Prompt: !?5,"For example: 1,2,5 or 123456,33254A,232323B." Line Location: QUES+2
Function Call: WRITE	Prompt: !?5,"Do not enter the same number twice, duplicates are not allowed." Line Location: QUES+3
Function Call: WRITE	Prompt: !?10,$C(7),"RX# ",$P(^PSRX(PSRX,0),"^")," is not a valid choice. (Different Division)" Line Location: CHK1+0
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: CHK1+1
Function Call: WRITE	Prompt: !?10,$C(7),"RX# ",$P(^PSRX(PSRX,0),"^")," is from another division. Continue? (Y/N) " Line Location: CHK1+1
Function Call: WRITE	Prompt: !?10,$C(7),"Answer 'YES' or 'NO'." Line Location: CHK1+2
Routine Call	DIE Line Location: IBSSR
Routine Call	DIR Line Location: WARN+28

FileNo	Call Tags
^PS(52.4 - [#52.4]	Classic Fileman Calls
^PS(52.5 - [#52.5]	Classic Fileman Calls
^PS(59 - [#59]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CIDH+3
^DIC(49 - [#49]	IBSSR
^DPT - [#2]	KILL+2
^PS(52.4 - [#52.4]	CAN+4, ECAN+4
^PS(52.5 - [#52.5]	K52, K52+1, K52+2, K52+3!, K52+4!, K52+5!, S52+1, S52+2, S52+3, S52+4 , S52+5*, KILL+2, KILL+4!, KILL+5, KILL+6!, KILL+7!, KILL+8, KILL+10, KILL+11!, KILL+12! , KILL+13!, KILL+14!, CAN+3, ECAN+3, CMOP1+4
^PS(55 - [#55]	ACTOUT, ACTOUT+2, ACTOUT+3
^PSRX - [#52]	SUSPCAN+1, SUSPCAN+2!, SUSPCAN+3, ACTLOG+1, ACTOUT, ACTOUT+1, ACTOUT+3, ENDVCHK, CHK1, CHK1+1 , K52+1, S52, S52+1, KILL+2, KILL+15, KILL+17, KILL+18, KILL+20, SPR, SPR+1* , SREF, SREF+1, SREF+2, KPR, KPR+2, KREF+1, KREF+2, ORIG, ORIG+1, WARN+9 , WARN+10, WARN+14, CAN+2, CAN+3, CAN+5, ECAN+2, ECAN+5, CMOP1+1, CMOP1+2, CMOP1+3
^PSRX("AH"	CAN+5!, ECAN+5!

Name	Line Occurrences
$$CIDADJ	CID+4, CIDH+2
CHK1	CHK1+2
EX	KPR+2, KREF, KREF+1, ORIG, ORIG+1
KILL	K52+1, K52+2
KREF	KPR+1, KREF+2
ORIG	KPR+1
SREF	SREF

Name	Field # of Occurrence
^(	ACTLOG+1, ACTOUT!, ACTOUT+1, ACTOUT+2!
^("P"	K52+2
^(0	SUSPCAN+2*, ACTOUT+1, K52+2, S52+2, KILL+6, KILL+12, KILL+13, CMOP1+3
^(2	ACTOUT, ENDVCHK

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	KILL+17
>> %DT	CID+5, CIDH+3
>> %DT(0	CID+5*
>> ANS	CHK1+1*, CHK1+2, CHK1+3
CMOP	WARN+3!, WARN+6!
CMOP(	WARN+3, WARN+4, CMOP1+3*
CMOP("L"	CMOP1+1*
CMOP("S"	CMOP1+4*
CNT	KILL+15, KILL+16, KILL+17, KILL+18, KILL+20!
CRX	CMOP+5*, CMOP1+1, CMOP1+2, CMOP1+3, CMOP1+4, CMOP1+5!
DA	KILL+16, KILL+17, KPR+1, KREF+2, IBSSR, WARN+3, WARN+4, WARN+10, WARN+14, WARN+19 , CAN+1~, CAN+3, CAN+4, ECAN+1~, ECAN+3, ECAN+4, CMOP+5
DA(1	K52, S52, S52+1, KILL+2, KILL+15, KILL+17, KILL+18, KILL+20, SPR, SPR+1 , SREF, SREF+1, SREF+2, KPR, KPR+2, KREF+1, KREF+2, ORIG, ORIG+1, WARN+9 , WARN+10, WARN+14, WARN+19
DFN	KILL~, KILL+2*, KILL+4, KILL+7, KILL+14!
DIE	IBSSR*!
DIK	CAN+3!, CAN+4!, ECAN+3!, ECAN+4!
DIR	WARN+23!, WARN+29!
DIR("?"	WARN+27*
DIR("A"	WARN+24*
DIR("B"	WARN+25*
DIR(0	WARN+26*
>> DR	IBSSR*
DT	ACTLOG+1, ACTOUT
DTIME	CHK1+1
DUZ	KILL+17
IFN	CAN+1~
NODE	SPR, SPR+1, SREF, SREF+1, SREF+2, SREF+3!, KPR, KPR+1, KPR+2, KREF* , KREF+1, KREF+2, ORIG, ORIG+1, EX!, CAN+1~
PAT	KILL+2*, KILL+4, KILL+14!
>> PSDFN	ACTOUT, ACTOUT+2, ACTOUT+3
>> PSFROM	QUES+1
PSI	SUSPCAN+1, SUSPCAN+2!, SUSPCAN+3!, ACTLOG+1, ACTOUT, ACTOUT+1*
PSID	CID+3*, CID+5!
PSLAST	SUSPCAN+1*, SUSPCAN+2!
>> PSMSG	ACTLOG+1
PSOC7	KILL+10~*, KILL+11, KILL+12
>> PSOCLC	ACTLOG+1
>> PSODIV	ENDVCHK
>> PSODRUG("IEN"	CIDADJ+3, CIDADJ+4
PSOHLP	IBSS~, IBSS+7!
PSOHLP(1	IBSS, IBSS+1
PSOHLP(2	IBSS+2, IBSS+3
PSOHLP(3	IBSS+4, IBSS+5
PSOHLP(4	IBSS+6*
>> PSOIBFL	IBSSR*
>> PSOIBLP	IBSSR*
>> PSOIBST	IBSSR*
PSOL	WARN+8~, WARN+9*, WARN+10
>> PSOPOP	ENDVCHK*
>> PSOPSDAL	KILL+20
PSOSFN	K52!*
>> PSOSITE	ENDVCHK, IBSSR
PSOSX	S52*, S52+6!
PSOSXDT	S52+6!
>> PSOSYS	CHK1, CHK1+1
>> PSOUNHLD	WARN+1
PSOXRX	CAN~, CAN+2, CAN+3, CAN+4, CAN+5, ECAN~, ECAN+2, ECAN+3, ECAN+4, ECAN+5
PSOXX	K52+1~*, KILL+18, KILL+20
>> PSPOP	CHK1, CHK1+1, CHK1+3*
PSR	WARN+8~, WARN+9*
>> PSREA	ACTLOG+1, ACTOUT, ACTOUT+1, ACTOUT+3
>> PSRX	SUSPCAN+1, SUSPCAN+2, SUSPCAN+3, ACTLOG+1, ACTOUT, ACTOUT+1, ACTOUT+2, ACTOUT+3, ENDVCHK, CHK1 , CHK1+1
>> PSRXREF	ACTLOG+1
>> PSS	ACTOUT+1*, ACTOUT+2
RES	CIDADJ+1~, CIDADJ+2, CIDADJ+5, CIDADJ+6
>> RESK	KILL+20
RF	SPR, SREF+3!, KPR, EX!, CAN+1~
RFID	S52*, S52+3, S52+4, S52+5, S52+6!
RFIN	S52+6!
>> RIFN	S52*
SDT	K52+3*, K52+4, K52+5, K52+6!
SFN	K52, K52+1, K52+2, K52+3, K52+4, K52+5, K52+6!, S52+1, S52+2, S52+3 , S52+4, S52+5, S52+6!, KILL+1, KILL+2, KILL+4, KILL+5, KILL+6, KILL+7, KILL+8 , KILL+10, KILL+11, KILL+12, KILL+13, KILL+14!
SUB	KILL+15*, KILL+20!
SUS1	SUSPCAN+2!, SUSPCAN+3!
SUS2	SUSPCAN+2!, SUSPCAN+3!
SUSD	CAN+1~, CAN+3*
SUSX	SUSPCAN+2!, SUSPCAN+3!
X	K52+2, CID+3, CID+4, CID+5, CIDH+2, KPR+1, KREF+2, CMOP1~, CMOP1+1, CMOP1+2* , CMOP1+3, CMOP1+4*, CMOP1+5!
>> Y	K52+2, CID+5, CIDH+3, IBSSR*, WARN+19

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOUTL

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 24

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CID	;calculates six months limit on issue dates
K52
SREF
KILL
S52
SUSPCAN	;dcl rx from suspense used in new, renew AND verification of Rxs
CMOP	;CMOP("L")=LAST FILL... if it is orig Rx =0
IBSS
SPR
ACTOUT
ORIG
CMOP1
CIDH	;IHS/MSC/PLS - 03/28/11 - Next 3 lines
KPR
IBSSR
WARN1	;move to PSOUTLA1
WARN	;
ENDVCHK
KREF
ECAN(PSOXRX)	;Clean up Rx when expired
ACTLOG	;
CIDADJ()	;EP - p1011
CHK1
QUES	;INSTRUCTIONS FOR RENEW AND REFILL
CAN(PSOXRX)	;Clean up Rx when discontinued
EX