Routine: PSOCP

Information

PSOCP ;BIR/BAB - Pharmacy CO-PAY Application Utilities for IB ;29-May-2012 14:42;PLS

Source Information

Source file <PSOCP.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Outpatient Pharmacy	7	(CHKIB,ICD,SETCOMM,XTYPE1)^PSOCP1 ACTLOG^PSOCPA MAIL2^PSOCPE (,FINAL)^PSOLSET $$DT^PSOMLLDT (CHRG,PFSA)^PSOPFSU1 SCP^PSORN52D
Registration	3	$$GETSTAT^DGMSTAPI ($$GETCUR,GETCUR)^DGNTAPI ($$GETSHAD,GETSHAD)^DGUTL3
Integrated Billing	1	(NEW,XTYPE)^IBARX
Scheduling	1	($$AO,$$EC,$$IR)^SDCO22
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 16

Package	Total	Caller Graph
Outpatient Pharmacy	8	PSOCPBK4 PSOCPC PSOCPIB3 PSOCPIBF PSOCSRL PSODISP PSODISPS PSOHLDIS
Order Entry Results Reporting	6	ORBCMA32 ORCDPS ORCDPS1 ORCDPS3 ORWDPS33 ORWDPS4
CMOP	1	PSXVND
IHS Changes To Pharmacy	1	APSPAUTO

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;
EN
XTYPE	;
COPAYREL	; Recheck copay status at release ; check Rx patient status
RX	;Determine Orig or Refill for RX
SETCOMM	;
IBNEW	; Load ^TMP global for IB call
ICD	;
EN1
PFS	;
EXIT
FILE	;File IB number in ^PSRX
SKIP	;
SCNEW(PSOTG,PSOPT,PSODR,PSORN)	;CPRS supported ref	ICR #2534 Status: Active Usage: Controlled Subscription
CP	;Check if COPAY-Requires RXP,PSOSITE7	ICR #1974 Status: Active Usage: Private
SCQ
SC(PSODFN,PSODD)	;sup ref for CPRS, Pre-Copay enhancement	ICR #2534 Status: Active Usage: Controlled Subscription

External References

Name	Field # of Occurrence
$$GETSTAT^DGMSTAPI	SKIP+5
$$GETCUR^DGNTAPI	SKIP+6
GETCUR^DGNTAPI	SKIP+6
$$GETSHAD^DGUTL3	SKIP+9
GETSHAD^DGUTL3	SKIP+9
^DIR	EN1
NEW^IBARX	IBNEW+11
XTYPE^IBARX	SC+8, SCNEW+16, XTYPE+8
CHKIB^PSOCP1	RX+5, RX+7
ICD^PSOCP1	ICD+1
SETCOMM^PSOCP1	SETCOMM+1
XTYPE1^PSOCP1	COPAYREL+10
ACTLOG^PSOCPA	PFS+5, PFS+8, IBNEW+26, IBNEW+31
MAIL2^PSOCPE	PFS+7, PFS+12
^PSOLSET	CP+2, EN
FINAL^PSOLSET	EXIT
$$DT^PSOMLLDT	SC+2, SCNEW+1
CHRG^PSOPFSU1	PFS+4, PFS+6, IBNEW+2
PFSA^PSOPFSU1	RX+3
SCP^PSORN52D	SCNEW+7
$$AO^SDCO22	SKIP+2
$$EC^SDCO22	SKIP+4
$$IR^SDCO22	SKIP+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,"RE-CHECK PRESCRIPTION NUMBER AND RE-ENTER " Line Location: EN1+0
Routine Call	DIR Line Location: EN1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53 - [#53]	SC+4, COPAYREL+2
^PS(55 - [#55]	SC+4
^PS(59 - [#59]	CP+8, EN1+1, SC+6, SCNEW+14, XTYPE+6
^PSDRUG - [#50]	SC+3, COPAYREL+5
^PSRX - [#52]	CP+4, CP+5, CP+9, RX+2, RX+5, RX+6, RX+7, RX+8, PFS+5, PFS+9 , PFS+10, PFS+14, PFS+18, IBNEW+10, IBNEW+27, IBNEW+33, IBNEW+34, FILE+3, FILE+4, FILE+5* , EN1, EN1+2, COPAYREL+2, COPAYREL+5, COPAYREL+10, COPAYREL+11, COPAYREL+13, SCNEW+9, SCNEW+10, SKIP+1 , XTYPE+3, XTYPE+12

Label References

Name	Line Occurrences
COPAYREL	PFS+3
CP	CP+2, EN1+3
EN1	EN1, EN1+3
EXIT	EN1
ICD	SCNEW+10, XTYPE+3
PFS	RX+3
QUIT	RX+5, RX+6, RX+7, RX+8, PFS+4, PFS+6, IBNEW+3, IBNEW+5, IBNEW+20, IBNEW+24 , IBNEW+35
SCNEW	COPAYREL+15
SCQ	SC+2, SC+3, SC+4, SC+7
SETCOMM	COPAYREL+14, COPAYREL+19
SKIP	SCNEW+15
XTYPE	COPAYREL+17

Name	Field # of Occurrence
^(	SC+6, SCNEW+14, XTYPE+6
^("IB"	SC+6, SCNEW+14, XTYPE+6
^("PS"	SC+4
^(0	SC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHKXTYPE	COPAYREL+9!, COPAYREL+17
D0	IBNEW+4~
DFN	SCNEW+4~, SCNEW+6*
DIR	EN1!
DIR("A"	EN1*
DIR(0	EN1*
>> DIRUT	EN1
DRG	COPAYREL+4~, COPAYREL+5*, COPAYREL+15
DRGTYP	COPAYREL+4~, COPAYREL+5*, COPAYREL+6, COPAYREL+7, COPAYREL+8
EXMT	COPAYREL+12~, COPAYREL+14, COPAYREL+16~, COPAYREL+18, COPAYREL+19, COPAYREL+23*
I	SC+5~, SC+9, SCNEW+13~, SCNEW+17, XTYPE+1~, XTYPE+10*
II	COPAYREL+12~, COPAYREL+14*
J	SC+5~, SC+6, SC+9, SCNEW+13~, SCNEW+14, SCNEW+17, XTYPE+1~, XTYPE+6, XTYPE+10
MAILMSG	PFS+2~, PFS+12, COPAYREL+23*, COPAYREL+24
PREA	PFS+5, PFS+8, IBNEW+25, IBNEW+30, QUIT+1!
>> PSOANSQ("SC>50"	SCNEW+5!, SCNEW+7*
PSOCHG	PFS+1, PFS+4, PFS+6, PFS+8, PFS+12, QUIT+1!, COPAYREL+2, COPAYREL+6, COPAYREL+7, COPAYREL+8* , COPAYREL+11, COPAYREL+18, COPAYREL+19, COPAYREL+20, COPAYREL+24, XTYPE+11
PSOCIBQ	COPAYREL+12~, COPAYREL+13, COPAYREL+14, SCNEW+4~, SCNEW+9, SCNEW+10, SCNEW+11, SKIP+1, SKIP+2, SKIP+3 , SKIP+4, SKIP+5, SKIP+6, SKIP+9, XTYPE+1~, XTYPE+3, XTYPE+4, XTYPE+5, XTYPE+12
PSOCOMM	PFS+8, IBNEW+26, IBNEW+29, QUIT+1!, COPAYREL+2, COPAYREL+6, COPAYREL+7, COPAYREL+8, XTYPE+11
PSOCP	CP+3!, CP+5, CP+6, CP+9, PFS+6, PFS+11
PSOCP1	QUIT+1!
PSOCP2	FILE+1, FILE+2, FILE+3, FILE+4, FILE+5, QUIT+1!
PSOCPN	CP+4*, CP+9, QUIT+1!, COPAYREL+15, XTYPE+8
PSOCPUN	PFS+14*, PFS+16, QUIT+1!
>> PSODA	PFS+5, PFS+8, IBNEW+26, IBNEW+31
PSODD	SC~, SC+3
PSODFN	EN1+2*, SC~, SC+4, SC+8
PSODR	SCNEW~
PSOIB	RX+1~*, RX+5, RX+7
PSONC	SKIP+6~
PSONC("IND"	SKIP+6
PSONCX	SKIP+6~*
PSONW	PFS+8, IBNEW+25, QUIT+1!, COPAYREL+2, COPAYREL+6, COPAYREL+7, COPAYREL+8, COPAYREL+11, COPAYREL+20
PSOOLD	PFS+8, IBNEW+25, QUIT+1!, COPAYREL+2, COPAYREL+6, COPAYREL+7, COPAYREL+8, COPAYREL+11, COPAYREL+20
>> PSOPAR	CP+2
PSOPFS	RX+1~, RX+3, PFS+4, PFS+6, IBNEW+2, IBNEW+3
PSOPT	SCNEW~, SCNEW+2, SCNEW+6, SCNEW+16, SKIP+2, SKIP+3, SKIP+4, SKIP+5, SKIP+6, SKIP+9
PSOQHNC	SCNEW+4~
PSOQMSH	SCNEW+4~
PSOQPGW	SCNEW+4~
PSOQRQD	SCNEW+4~
PSOQVEH	SCNEW+4~
PSOREF	RX+1, RX+2, RX+3, RX+5, RX+6, RX+7, RX+8, PFS+4, PFS+6, PFS+8 , PFS+9, PFS+16, PFS+18, IBNEW+2, IBNEW+33, QUIT+1!
PSORN	SCNEW~, SCNEW+8, SCNEW+9, SCNEW+10, SCNEW+11, SKIP+1
PSORSN	QUIT+1!
PSOSAVE	CP+6*, PFS+5, PFS+8, QUIT+1!
PSOSC	SC+1~, SC+2, SC+3, SC+4, SC+5, SC+9*, SCQ
PSOSCA	SCNEW+4~, SCNEW+7, SKIP+1
PSOSCMX	SCNEW+13~, SCNEW+17, SKIP+1, XTYPE+1~, XTYPE+2, XTYPE+10, XTYPE+11, XTYPE+12
>> PSOSCP	SCNEW+7
>> PSOSITE	CP+8, EN1+1
>> PSOSITE7	CP+8, CP+9, EN1+1
PSOTG	COPAYREL+9!, COPAYREL+15, SCNEW~
PSOTG(	COPAYREL+18, COPAYREL+19, COPAYREL+23
PSOTG("AO"	SKIP+2*
PSOTG("EC"	SKIP+4*
PSOTG("HNC"	SKIP+6*
PSOTG("IR"	SKIP+3*
PSOTG("MST"	SKIP+5*
PSOTG("SC"	COPAYREL+24, SKIP+1, XTYPE+4, XTYPE+5, XTYPE+12
PSOTG("SHAD"	SKIP+9*
QQ	QUIT+1!
RXP	CP+4, CP+5, CP+9, RX+2, RX+3, RX+5, RX+6, RX+7, RX+8, PFS+4 , PFS+5, PFS+6, PFS+8, PFS+9, PFS+10, PFS+14, PFS+16, PFS+18, IBNEW+1, IBNEW+2 , IBNEW+10, IBNEW+26, IBNEW+27, IBNEW+31, IBNEW+33, IBNEW+34, FILE+3, FILE+4, FILE+5, EN1* , EN1+2, EXIT!, COPAYREL+2, COPAYREL+5, COPAYREL+10, COPAYREL+11, COPAYREL+13, COPAYREL+15, XTYPE+3, XTYPE+12
SAVY	XTYPE+1~, XTYPE+2, XTYPE+10, XTYPE+11
U	FILE+3, FILE+5
X	CP+9, PFS+11, PFS+18, IBNEW+5, IBNEW+6, IBNEW+10, QUIT+1!, EN1, SC+5~, SC+6 , SC+7, SC+8, COPAYREL+4~, SCNEW+13~, SCNEW+14, SCNEW+15, SCNEW+16, XTYPE+1~, XTYPE+2, XTYPE+6 , XTYPE+7, XTYPE+8*
X(1	PFS+16*, IBNEW+6
X2	QUIT+1!
XTMP	IBNEW+6, IBNEW+21, QUIT+1!
XTMP(1	IBNEW+6, IBNEW+21, FILE+2, FILE+3, FILE+5
Y	IBNEW+20, IBNEW+21, QUIT+1!, SCNEW+13~, XTYPE+1~, XTYPE+9
Y(	SC+9, SCNEW+17, XTYPE+10
Y(1	IBNEW+21, IBNEW+24, IBNEW+28, IBNEW+29, IBNEW+32, IBNEW+33, IBNEW+34, IBNEW+35
>> YY	RX+2
ZXX	SCNEW+4~, SCNEW+10, XTYPE+1~, XTYPE+3

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCP

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items