Routine: PSOCIDC9

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT
Outpatient Pharmacy	2	$$NAMSP^PSOCIDC7 CHECK^PSOCIDC8
VA FileMan	2	^DIC ^DIR

Name	Comments	DBIA/ICR reference
RPT	;
DVC	;
QUEUE	;
START	;
FULL	;
TITLE	;
END	;
DONE	;
PRTSSN	;
LOCKED	;LIST OF LOCKED RX'S
DVC2	;
QUEUE2	;
START2	;
FULL2	;
TITLE2	;
FIXONE	;FIX LOCKED RX'S
FIX2	;

Name	Field # of Occurrence
^%ZIS	DVC+1, DVC2+1
^%ZISC	DONE+2
^%ZTLOAD	QUEUE+1, QUEUE2+1
^DIC	FIX2+3
^DIR	TITLE+1, END+1, TITLE2+1
$$NAMSP^PSOCIDC7	RPT+2, START+4, LOCKED+2, START2+4, FIX2+6
CHECK^PSOCIDC8	FIX2+10
$$NOW^XLFDT	START+10, START2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report reflects all prescriptions where the activity and" Line Location: RPT+7
Function Call: WRITE	Prompt: !,"copay activity logs were corrected. For detailed information," Line Location: RPT+8
Function Call: WRITE	Prompt: !,"please view the activity and copay logs on the prescriptions." Line Location: RPT+9
Function Call: WRITE	Prompt: !!,"You may queue the report to print, if you wish.",! Line Location: RPT+11
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: DVC+1
Function Call: WRITE	Prompt: !,"Report queued to print.",! Line Location: QUEUE+1
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+3
Function Call: WRITE	Prompt: !,"Patch PSO7239 - Corrected Activity and Copay Activity logs",!! Line Location: TITLE+4
Function Call: WRITE	Prompt: "Note that this report reflects all prescriptions where the activity and/or",! Line Location: TITLE+5
Function Call: WRITE	Prompt: "copay activity logs were corrected. For detailed information, please view",! Line Location: TITLE+6
Function Call: WRITE	Prompt: "the activity and copay activity log on the prescription.",! Line Location: TITLE+7
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?70,"Page: ",PSOPGCT,! Line Location: TITLE+9
Function Call: WRITE	Prompt: "=" Line Location: TITLE+10
Function Call: WRITE	Prompt: !,"PATIENT NAME (SSN) DIV",?42,"RX# " Line Location: TITLE+13
Function Call: WRITE	Prompt: !,"--------------- ------- --------------",?42,"------------" Line Location: TITLE+14
Function Call: WRITE	Prompt: !!," End of Report " Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: ?17,"("_PSOPATID_")"_" "_$E(PSODIV,1,15) Line Location: PRTSSN+5
Function Call: WRITE	Prompt: !!,"This report reflects all prescriptions where the activity and",! Line Location: LOCKED+7
Function Call: WRITE	Prompt: "copay activity logs could not be corrected due to the Rx being locked." Line Location: LOCKED+8
Function Call: WRITE	Prompt: !!,"You may queue the report to print, if you wish.",! Line Location: LOCKED+10
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: DVC2+1
Function Call: WRITE	Prompt: !,"Report queued to print.",! Line Location: QUEUE2+1
Function Call: WRITE	Prompt: !,$E(PSONAME,1,14) Line Location: START2+15
Function Call: WRITE	Prompt: ?41," ",PSORXN Line Location: START2+17
Function Call: WRITE	Prompt: !!,"Total number of prescriptions locked: ",PSONCNT,! Line Location: START2+19
Function Call: WRITE	Prompt: @IOF Line Location: TITLE2+3
Function Call: WRITE	Prompt: !,"Patch PSO7239 - Locked Prescription Number Report",!! Line Location: TITLE2+4
Function Call: WRITE	Prompt: "Note that this report reflects all prescriptions where the activity and/or",! Line Location: TITLE2+5
Function Call: WRITE	Prompt: "copay activity logs could not be corrected. For detailed information,",! Line Location: TITLE2+6
Function Call: WRITE	Prompt: "please view the activity and copay activity log on the prescription.",! Line Location: TITLE2+7
Function Call: WRITE	Prompt: !!,"Note that FIXONE^PSOCIDC9 can be run from programmer's mode" Line Location: TITLE2+8
Function Call: WRITE	Prompt: !,"to correct individual prescriptions.",!! Line Location: TITLE2+9
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?70,"Page: ",PSOPGCT,! Line Location: TITLE2+11
Function Call: WRITE	Prompt: "=" Line Location: TITLE2+12
Function Call: WRITE	Prompt: !,"PATIENT NAME (SSN) DIV",?42,"RX# " Line Location: TITLE2+14
Function Call: WRITE	Prompt: !,"--------------- ------- --------------",?42,"------------" Line Location: TITLE2+15
Function Call: WRITE	Prompt: @IOF Line Location: FIXONE+2
Function Call: WRITE	Prompt: !,"This function is used to correct individual prescriptions that were locked" Line Location: FIXONE+3
Function Call: WRITE	Prompt: !,"during the CIDC Activity Log clean-up process. It verifies whether the" Line Location: FIXONE+4
Function Call: WRITE	Prompt: !,"prescription needs to be corrected, and if so corrects it. If the Rx still" Line Location: FIXONE+5
Function Call: WRITE	Prompt: !,"cannot be locked for correction, a message stating such will be displayed." Line Location: FIXONE+6
Function Call: WRITE	Prompt: !,"Otherwise, a message stating that no correction is needed will be displayed.",! Line Location: FIXONE+7
Function Call: WRITE	Prompt: !,"For detailed information please view the activity and copay activity log on" Line Location: FIXONE+8
Function Call: WRITE	Prompt: !,"the prescription. For a listing of locked Rx's, type D LOCKED^PSOCIDC9 at" Line Location: FIXONE+9
Function Call: WRITE	Prompt: !,"the programmer's prompt.",! Line Location: FIXONE+10
Function Call: WRITE	Prompt: ! Line Location: FIX2+3
Function Call: WRITE	Prompt: !,"For Patient: ",PSONAM Line Location: FIX2+5
Function Call: WRITE	Prompt: !!,"No changes are needed for this prescription.",! Line Location: FIX2+9
Function Call: WRITE	Prompt: !,"Activity logs corrected.",!! Line Location: FIX2+11
Routine Call	%ZIS Line Location: DVC+1 DVC2+1
Routine Call	DIC Line Location: FIX2+3
Routine Call	DIR Line Location: TITLE+1 END+1 TITLE2+1

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+9, TITLE2+11
^DPT - [#2]	START+18, PRTSSN+1, START2+15, FIX2+4
^PS(59 - [#59]	PRTSSN+4
^PSRX - [#52]	START+21, PRTSSN+3, START2+14, FIX2+4, FIX2+7, FIX2+8
^XTMP(	RPT+4, RPT+6, START+9, START+13, START+15, START+17, LOCKED+4, LOCKED+6, START2+8, START2+11 , START2+18
^XTMP("PSOCIDC7"	FIX2+11*

Name	Line Occurrences
DONE	DVC+1, QUEUE+1, DVC2+1, QUEUE2+1
END	START+24, START2+20
FIX2	FIX2+9, FIX2+12
FULL	START+18
FULL2	START2+12
PRTSSN	START+20, START2+16
TITLE	START+11, FULL+1
TITLE2	START2+10, FULL2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC+1!, DVC2+1!
%ZSI	QUEUE+1!, QUEUE2+1!
BLDT	START+2~, START+9, START2+2~, START2+8
CANCEL	START+3~, START2+3~
CSEQ	FIXONE+1~, FIX2+6, FIX2+8
>> DFN	START2+14, FIX2+4
DIC	FIX2+2!, FIX2+3*
DIC(0	FIX2+3*
DIR	TITLE+1!, END+1!, DONE+1!, TITLE2+1!
DIR("A"	END+1*
DIR(0	TITLE+1, END+1, TITLE2+1*
DIRUT	DONE+1!
DT	START+10, TITLE+9, START2+9, TITLE2+11
DTOUT	DONE+1!
DUOUT	DONE+1!
DUZ	FIX2+11
FIXONE	FIXONE+1~, FIX2+1, FIX2+10
IO	START+1, START2+1
IO("Q"	QUEUE+1, DONE+1!, QUEUE2+1
IOF	TITLE+3, END+3, TITLE2+3, FIXONE+2
IOP	DVC+1!, DONE+1!, DVC2+1!
IOSL	START+8, FULL+1, START2+7, FULL2+1
IOST	START+7, START2+6
JOBN	RPT+1~, RPT+3, RPT+5, QUEUE+1, START+3~, START+6, LOCKED+1~, LOCKED+3, LOCKED+5, QUEUE2+1 , START2+3~, START2+5
MJT	TITLE+10, DONE+1!, TITLE2+12
NAMSP	RPT+1~, RPT+2, RPT+4, RPT+6, START+2~, START+4, START+9, START+13, START+15, START+17 , LOCKED+1~, LOCKED+2, LOCKED+4, LOCKED+6, START2+2~, START2+4, START2+8, START2+11, START2+18, FIXONE+1~ , FIX2+6*
POP	DVC+1!, DONE+1!, DVC2+1!
PSOCHECK	FIXONE+1~, FIX2+6, FIX2+7, FIX2+8*, FIX2+9
PSODFN	START+2~, START+14, START+15, START+17, START+18, PRTSSN+1, START2+2~, START2+14, START2+15, FIX2+4
PSODIV	START+2~, PRTSSN+3, PRTSSN+4, PRTSSN+5, START2+2~
PSODV	START+2~, START+7, TITLE+1, END+1, END+2, LOCKED+1~, START2+2~, START2+6, TITLE2+1
PSOFILL	START+2~
PSOFONE	FIXONE+1~, FIX2+1*, FIX2+11
PSOMSG	FIXONE+1~, FIX2+1*
PSONAM	START+2~, START+12, START+13, START+15, START+17, PRTSSN+2, START2+2~, START2+15, FIX2+4, FIX2+5
PSONAME	START+18, START+19, START2+2~, START2+15
PSONCNT	START2+3~, START2+6, START2+13, START2+19
PSONTIM	FIXONE+1~, FIX2+1*
PSOOUT	START+2~, START+7, START+18, FULL+1, TITLE+1, END+1, START2+2~, START2+6, START2+12, FULL2+1 , TITLE2+1
PSOPATID	START+3~, PRTSSN+2*, PRTSSN+5, START2+3~
PSOPGCT	START+8, TITLE+1, TITLE+9, TITLE+16, DONE+1!, START2+2~, START2+6, START2+7, TITLE2+1, TITLE2+11 , TITLE2+16*
PSOPGLN	START+8, DONE+1!, START2+7
PSORXN	START2+3~, START2+14*, START2+17
PSOTOT	START+3~, START+12, START+18, START+23, START2+3~
RXO	START+2~, START+21*, START+22
RXP	START+2~, START+16, START+17, START+21, PRTSSN+3, START2+2~, START2+7, START2+11, START2+14, START2+18 , FIXONE+1~, FIX2+4*, FIX2+7, FIX2+8, FIX2+11
SEQ	FIXONE+1~, FIX2+6, FIX2+7
SSN	START+2~, PRTSSN+1*, PRTSSN+2, START2+2~
X	DONE+1!
Y	TITLE+1, TITLE+9, DONE+1!, TITLE2+1, TITLE2+11, FIX2+3, FIX2+4
ZTDESC	RPT+1~, QUEUE+1, LOCKED+1~, QUEUE2+1
ZTQUEUED	RPT+1~, DONE+2, LOCKED+1~
ZTREQ	RPT+1~, DONE+2*, LOCKED+1~
ZTRTN	RPT+1~, QUEUE+1, LOCKED+1~, QUEUE2+1

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCIDC9

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: