Routine: PSODIAG

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIK $$GET1^DIQ
DRG Grouper	2	$$STATCHK^ICDAPIU $$ICDDX^ICDCODE
Integrated Billing	1	($$CIDC,CIDC)^IBBAPI

Package	Total	Caller Graph
Outpatient Pharmacy	7	PSOBKDED PSOHLNEW PSON52 PSONEW1 PSOORED6 PSOOREDT PSOORNEW

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
WRITE2
UPDATE	;was in PSOORED6; now called from PSOORED6; removes deletes for edits and stores data.
ICD	;called from PSON52 cause PSON52'S too large. Stores ICD info for new Rx's (CPRS and backdoor) using variables from copy function and new order functions.
WRITE
CSET	;Called from PSOHLNEW due to it's routine size. Requires PSOICD & PENDING variable. Sets ICD node for orders passed from CPRS.
EN2	;ask for ICD's or display previously entered ones for editing
STATCHK(ICDIEN,FILDAT)	;called from above to check active/inactive date during FileMan call.
DELETE	;called from above to verify delete with user and to delete said entries

External References

Name	Field # of Occurrence
^DIC	EN2+19
^DIK	UPDATE+7
$$GET1^DIQ	EN+15, EN+20, EN+21, EN+29, EN+30
$$CIDC^IBBAPI	EN+5
CIDC^IBBAPI	EN+2
$$STATCHK^ICDAPIU	EN2+25, STATCHK+2
$$ICDDX^ICDCODE	WRITE, WRITE2, WRITE2+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Previously entered ICD-9 diagnosis codes: " Line Location: EN+17
Function Call: WRITE	Prompt: OLD(I) Line Location: EN+25
Function Call: WRITE	Prompt: ! Line Location: EN2+4
Function Call: READ	Timeout: 60 Variable: X Line Location: EN2+9
Function Call: WRITE	Prompt: !,DIC("A") Line Location: EN2+9
Function Call: WRITE	Prompt: OLD(I)_"// " Line Location: EN2+10
Function Call: WRITE	Prompt: !,"Enter a valid ICD-9 diagnosis code." Line Location: EN2+13
Function Call: WRITE	Prompt: !!,"Invalid ICD-9 diagnosis code. Please choose another.",! Line Location: EN2+26
Function Call: WRITE	Prompt: !!,"Inactivated ICD-9 Diagnosis Code. Please choose another.",! Line Location: EN2+27
Function Call: WRITE	Prompt: !!,"Invalid or inactivated ICD-9 diagnosis code. Please choose another.",! Line Location: EN2+28
Function Call: WRITE	Prompt: $C(7),!," Duplicate entry. Please select a different ICD-9 diagnosis code.",! Line Location: EN2+30
Function Call: WRITE	Prompt: !,?10,"Primary: ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4) Line Location: WRITE+0
Function Call: WRITE	Prompt: !,?3,"Secondaries #"_J_": ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4) Line Location: WRITE2+0
Function Call: WRITE	Prompt: !,?15,"#"_J_": ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4) Line Location: WRITE2+1
Function Call: READ	Timeout: 30 Variable: X Line Location: DELETE+1
Function Call: WRITE	Prompt: !,"SURE YOU WANT TO DELETE? " Line Location: DELETE+1
Function Call: WRITE	Prompt: !,"Enter Y or N" Line Location: DELETE+2
Routine Call	DIC Line Location: EN2+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
52.052311	GET1^DIQ
52.41311	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	EN+24, EN+33, STATCHK+2
^ICD9("BA"	EN2+22
^PS(52.41 - [#52.41]	EN+13, EN+28, ICD+6, CSET+3, CSET+4
^PS(53 - [#53]	ICD+10, ICD+16
^PSRX - [#52]	EN+19, EN2+50, ICD+4!, ICD+5, ICD+11, ICD+15, ICD+16, ICD+17, UPDATE+5, UPDATE+6!* , UPDATE+7, UPDATE+10, UPDATE+11!, UPDATE+12, UPDATE+13
^XUSEC("PROVIDER"	EN+3

Label References

Name	Line Occurrences
DELETE	EN2+14, DELETE+2
WRITE	EN+26, EN+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CPRS	EN+7~, EN+10, EN+13, EN+18, EN+27, EN2+6, EN2+46, EN2+48, EN2+50, DELETE+6 , DELETE+7
D	ICD+1~, ICD+3, ICD+4, ICD+5, ICD+7, ICD+11, ICD+12*, ICD+15, ICD+16
DA	EN+5, UPDATE+2~, UPDATE+3, UPDATE+7!, UPDATE+10, UPDATE+11, UPDATE+12, UPDATE+13
DA(1	UPDATE+7*
DDATA	ICD+1~, ICD+8, ICD+9, ICD+10, ICD+11, ICD+13, ICD+14*, ICD+15
>> DFN	EN+4
DIC	EN+9!, EN2+7!, EN2+16!*, EN2+19!
DIC("A"	EN2+7*, EN2+9
DIC("B"	EN2+8*
DIC("S"	EN2+18*
DIC(0	EN2+16*
DIK	UPDATE+2~, UPDATE+7*!
DT	EN+15
DTOUT	EN2+19!, EN2+21
DUOUT	EN2+19!, EN2+21
DUZ	EN+3
DX	EN+7~
DX(	EN2+30, EN2+32*
EE	CSET+1~, CSET+2*, CSET+3
EEE	CSET+1~, CSET+2, CSET+3, CSET+4
FILDAT	EN+7~, EN+15*, EN2+25, WRITE, WRITE2, WRITE2+1, STATCHK~, STATCHK+2
I	EN+7~, EN+19, EN+20, EN+21, EN+23, EN+24, EN+25, EN+26, EN+28, EN+29 , EN+30, EN+32, EN+33, EN+34, EN2+5, EN2+7, EN2+8, EN2+10, EN2+11, EN2+13 , EN2+20, EN2+22, EN2+23, EN2+24, EN2+28, EN2+29, EN2+30, EN2+32, EN2+40, EN2+41 , WRITE, WRITE2, WRITE2+1, DELETE+3, DELETE+4, DELETE+13, UPDATE+2~, UPDATE+7, UPDATE+12*
ICD	ICD+1~, ICD+7*, ICD+8
ICDIEN	STATCHK~, STATCHK+2*
II	ICD+1~, ICD+11, ICD+15, ICD+17, UPDATE+2~, UPDATE+12*, UPDATE+13
J	EN+7~, EN+25, EN2+29, EN2+30, EN2+40, WRITE, WRITE2, WRITE2+1, DELETE+4*, DELETE+5 , DELETE+6, DELETE+7, DELETE+9, DELETE+10, DELETE+11
NEW	EN+7~
NEW("ICD"	EN2+32, EN2+37, EN2+38, EN2+40
OLD	EN+7~, EN+22, EN+31!
OLD(	EN+20, EN+24, EN+25, EN+26, EN+29, EN+33, EN+34, EN2+8, EN2+10, EN2+11 , WRITE, WRITE2, WRITE2+1, DELETE+5*, DELETE+11!
OLDI	EN+7~, EN+31!, EN+35, EN2+37
OLDI(	EN+21, EN+23, EN+24, EN+30, EN+32, EN+33, DELETE+4, DELETE+5*, DELETE+7, DELETE+11!
>> ORD	EN+12, EN+13, EN+28, EN+29, EN+30, ICD+6
>> PENDING	CSET+3, CSET+4
POP	EN+7~, EN2+29, EN2+30, EN2+31
>> PSOANSQ("CV"	ICD+8, ICD+14
>> PSOANSQ("HNC"	ICD+8, ICD+14
>> PSOANSQ("MST"	ICD+8, ICD+14
>> PSOANSQ("PGW"	ICD+8, ICD+14
>> PSOANSQ("RAD"	ICD+8, ICD+13
>> PSOANSQ("SC"	ICD+8, ICD+13
>> PSOANSQ("SC>50"	ICD+8, ICD+10, ICD+13, ICD+16
>> PSOANSQ("SHAD"	ICD+9, ICD+14
>> PSOANSQ("VEH"	ICD+8, ICD+13
>> PSOCOPY	EN+22, EN2+38, DELETE+8, ICD+2
PSODDFN	EN+4~*, EN+5
>> PSODFN	EN+4
>> PSOEDIT	EN+5
>> PSOICD(	CSET+2, CSET+3
PSOICDD	EN2+38!*, ICD+2
>> PSONEW("DFLG"	EN+5*
>> PSONEW("ICD"	EN+13, EN+28, EN+31, EN+32, DELETE+6, DELETE+7, DELETE+9, DELETE+11!, ICD+6, ICD+18!
>> PSONEW("IDFLG"	EN2+48*
>> PSONEW("PATIE	NT STATUS" , ICD+10, ICD+16
>> PSORX("ICD"	EN2+46!, EN2+47!, ICD+6, ICD+18!
>> PSORXED	EN+11, EN2+6, EN2+47
>> PSORXED("FLD"	EN+11*, EN+13!, EN2+45!
>> PSORXED("ICD"	EN+13!, EN+19, EN2+46, DELETE+10, DELETE+11!, ICD+18!, UPDATE+4, UPDATE+9, UPDATE+12
>> PSORXED("IDFLG"	EN2+50*, UPDATE+4!
>> PSORXED("IRXN"	EN+8, UPDATE+3, UPDATE+5, UPDATE+6, UPDATE+7
>> PSOSCP	ICD+8, ICD+10, ICD+13, ICD+16
PSOX	EN+8~
PSOX("ICD"	ICD+2, ICD+3, ICD+5, ICD+6, ICD+7, ICD+18!
PSOX("IRXN"	EN+8*, EN+15, EN+19, EN+20, EN+21, EN2+50, ICD+4, ICD+11, ICD+15, ICD+16 , ICD+17
PSOX("OIRXN"	ICD+5
RAR	EN+7~, EN+11, EN+12, EN+22, EN+23, EN2+5, EN2+6*, EN2+40, EN2+44, EN2+46 , EN2+47, EN2+48, EN2+49, EN2+50
SCEI	UPDATE+2~, UPDATE+10, UPDATE+12
SOLDI	EN+7~, EN+35*
SOLDI(	EN2+44
STATCHK	EN+7~, EN2+25*, EN2+26, EN2+27
STATCHK2	EN+7~, EN2+24, EN2+25, EN2+26, EN2+27*
TNEW	EN+7~, EN2+41, UPDATE+2~, UPDATE+6, UPDATE+7
U	EN2+25, EN2+32, WRITE, WRITE2, WRITE2+1, ICD+5, UPDATE+6, UPDATE+13, CSET+4
X	EN+7~, EN2+9, EN2+11, EN2+12, EN2+13, EN2+14, EN2+15, EN2+20, EN2+21, EN2+22 , EN2+23, EN2+30, EN2+42, STATCHK+1~, STATCHK+2, STATCHK+3, DELETE+1, DELETE+2, DELETE+3, DELETE+13*
Y	EN+7~, EN2+5, EN2+12, EN2+15, EN2+20, EN2+21, EN2+22, EN2+23, EN2+24, EN2+25 , EN2+28, EN2+30, EN2+32, EN2+44, DELETE+13*
Z	EN+7~

Marked Items

Name	Field # of Occurrence
$T(CIDC^IBBAPI	EN+2

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODIAG

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items