Routine: PSORN52D

Package	Total	Call Graph
Registration	1	ELIG^VADPT
Scheduling	1	$$SC^SDCO22
VA Fileman	1	($$GET1,GETS)^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	11	PSOCP PSOCPB PSOCPC PSOHLNE1 PSOHLNE3 PSONEW2 PSONEWF PSONEWG PSORENW1 PSORN52 PSORN52A

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;called from reset copay status PSOCPC
FILE2	;file ICD's on existing node or build new nodes
SHAD	;
G1	;get ICD, if no IBQ node get SC/EI's
GET	;must have FILE and PSORENW variables to pull default data for ICD and SC/EI for SC>50% Rx's from file 52
FILE	;
SET3	;for when patient status is exempt or SC>50
SCP	;Called from multiple routines - DFN or PSODFN variable must be available to call this subroutine.

External References

Name	Field # of Occurrence
$$GET1^DIQ	GET+8, GET+9, FILE2+4, RESET+7
GETS^DIQ	GET+5
$$SC^SDCO22	SCP+4
ELIG^VADPT	SCP+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
^PS(52.41 - [#52.41]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	GET+4
^PS(53 - [#53]	G1+16, G1+19, FILE2+10, FILE2+23, SET3+2, SET3+8
^PSRX - [#52]	GET+2, FILE+1, FILE+2, FILE+3, FILE+4, FILE+5, FILE2+8!, FILE2+20, FILE2+21, FILE2+22 , FILE2+26, RESET+3, RESET+6, RESET+18, RESET+19, RESET+20, RESET+22*, SHAD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	GET+1~, GET+7
ARRAY(	G1+1, G1+2, G1+4, G1+5, G1+6, G1+7, G1+8, G1+9, G1+10, G1+11 , G1+14, G1+18, G1+21
D	FILE2+3~, FILE2+19*, FILE2+20, FILE2+21
DATA	FILE2+3~, FILE2+9, FILE2+10, FILE2+12, FILE2+13, FILE2+14, FILE2+15, FILE2+16, FILE2+17, FILE2+18* , FILE2+19, FILE2+20, FILE2+22, FILE2+23, RESET+5~, RESET+8, RESET+10, RESET+11, RESET+12, RESET+13* , RESET+14, RESET+15, RESET+16, RESET+17, RESET+20, RESET+22
DATA1	FILE2+3~, FILE2+9, FILE2+24, FILE2+25*, FILE2+26
>> DFN	RESET+7, SCP+1, SCP+4
ERR	GET+1~
>> FILE	GET+2, GET+4, GET+5, GET+8, G1+2, G1+13, G1+14, G1+17, G1+20
I	RESET+5~, RESET+9, RESET+10, RESET+11, RESET+12, RESET+13, RESET+14, RESET+15, RESET+16, RESET+17 , RESET+18, RESET+19, RESET+20
II	GET+1~, G1+1, G1+2, G1+3, G1+4, G1+5, G1+6, G1+7, G1+8, G1+9 , G1+10, G1+11, G1+12, G1+14, G1+18, G1+21, FILE+2~*, FILE+3, FILE+4, FILE+5 , FILE2+3~
JJ	GET+1~, G1+4, G1+5, G1+6, G1+7, G1+8, G1+9, G1+10, G1+11, G1+12 , G1+14, G1+18, G1+21
JJJ	SET3+3*, SET3+4, SET3+5, SET3+6, SET3+7, SET3+8, SET3+9, SET3+10, SET3+11, SET3+12 , SET3+13, SET3+14!
>> ORD	GET+4, GET+8, FILE2+6
ORXN	GET+1~, GET+2, GET+4, G1+5, G1+6, G1+7, G1+8, G1+9, G1+10, G1+11 , G1+13, G1+14, G1+17, G1+18, G1+20, G1+21
PENDSC	GET+1~, GET+8*, G1+13, G1+17, G1+20
>> PSOANSQ(	G1+5, G1+6, G1+7, G1+8, G1+9, G1+10, G1+11, G1+13, G1+14, G1+17 , G1+18, G1+20, G1+21, FILE2+11, FILE2+12, FILE2+13, FILE2+14, FILE2+15, FILE2+16, FILE2+17 , FILE2+18, FILE2+24, FILE2+25, SHAD+2, SHAD+3*
>> PSOANSQ("SC"	G1+20, G1+21, FILE2+10, FILE2+24
>> PSOANSQ("SC>50"	G1+13, G1+14, G1+17, G1+18, FILE2+10, SCP+2*
>> PSODA	RESET+2, RESET+3, RESET+6, RESET+7, RESET+18, RESET+19, RESET+20, RESET+22
>> PSODFN	SCP+1
>> PSOFDR	FILE2+6
>> PSOIBOLD	SET3+4, SET3+5, SET3+7, SET3+8, SET3+9, SET3+10, SET3+11, SET3+12, SET3+13
>> PSOIBQ	RESET+2, RESET+10, RESET+11, RESET+12, RESET+13, RESET+14, RESET+15, RESET+16, RESET+17
PSOIBQF	GET+1~, GET+2, GET+4, G1+3, G1+12
PSOICD	RESET+5~, RESET+6*, RESET+18, RESET+22
>> PSONEW("ICD"	G1+2*
PSOOICD	SET3+3, SET3+4, SET3+5, SET3+7, SET3+8, SET3+9, SET3+10, SET3+11, SET3+12, SET3+13 , SET3+14!
PSOPATST	GET+1~, GET+9, G1+16, G1+19, FILE2+3~, FILE2+4, FILE2+10, FILE2+23, SET3+1~, SET3+2 , SET3+8
>> PSOPIBQ	SHAD+2
>> PSORENW("IRXN"	GET+2
>> PSORENW("OIRXN"	GET+2, GET+4
>> PSORX(	G1+5, G1+6, G1+7, G1+8, G1+9, G1+10, G1+11, G1+13, G1+14, G1+17 , G1+18, G1+20, G1+21, SET3+4, SET3+5, SET3+7, SET3+8, SET3+9, SET3+10, SET3+11 , SET3+12, SET3+13
>> PSORX("ICD"	GET+6!, G1+2*, FILE2+19, FILE2+21, FILE2+27!
>> PSORX("PATIEN	T STATUS" , SET3+1, SET3+2
>> PSOSCA	SCP+2, SCP+4
>> PSOSCP	G1+13, G1+14, G1+16, G1+19, FILE2+10, FILE2+23, SCP+2, SCP+3, SET3+7, SET3+8
>> PSOSCP2	FILE2+6
>> PSOX("ICD"	GET+6!
>> PSOX("IRXN"	FILE+3, FILE+4, FILE+5, FILE2+4, FILE2+8, FILE2+11, FILE2+12, FILE2+13, FILE2+14, FILE2+15 , FILE2+16, FILE2+17, FILE2+18, FILE2+20, FILE2+21, FILE2+22, FILE2+24, FILE2+25, FILE2+26, SHAD+2 , SHAD+3
>> PSOX("OIRXN"	FILE+1, FILE+2, FILE+3
RXN	GET+1~, GET+2, GET+4, GET+9, G1+5, G1+6, G1+7, G1+8, G1+9, G1+10 , G1+11, G1+13, G1+14, G1+17, G1+18, G1+20, G1+21, FILE2+3~, SHAD+3
>> SRXN	GET+2, GET+4, GET+5, G1+1, G1+2, G1+4, G1+5, G1+6, G1+7, G1+8 , G1+9, G1+10, G1+11, G1+14, G1+18, G1+21
SUBF	GET+1~, GET+2, GET+4, G1+1, G1+2, G1+4, G1+5, G1+6, G1+7, G1+8 , G1+9, G1+10, G1+11, G1+14, G1+18, G1+21
SUBFLD	GET+1~, GET+2, GET+4, GET+5
TYPE	FILE2+3~, FILE2+9, FILE2+11, FILE2+12, FILE2+13, FILE2+14, FILE2+15, FILE2+16, FILE2+17, FILE2+18
U	FILE2+10, FILE2+12, FILE2+13, FILE2+14, FILE2+15, FILE2+16, FILE2+17, FILE2+18, SCP+2, SCP+3 , SHAD+2, SHAD+3
VAEL	SCP+5!
VAEL(3	SCP+2, SCP+3
XX	SHAD+1~, SHAD+2, SHAD+3

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORN52D

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 11

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: