Routine: PSO283PI

Package	Total	Call Graph
Kernel	1	($$DT,$$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT
Order Entry Results Reporting	1	$$STATUS^ORQOR2
Outpatient Pharmacy	1	($$JOBSTS,CALCEXP,DISPLAY,JOB,LOG,MAIL)^PSO283P1
Registration	1	$$SITE^VASITE
Uncategorized	1	$$GETICN^MPIF001
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;
SET	;
CPRSNUM(RXP)	;
STOP	;
EN	;
PI	; Post-Install entry point
SETXTMP	; - Initialize the XTMP global

External References

Name	Field # of Occurrence
^DIR	PSO283PI+31
$$GETICN^MPIF001	EN+20
$$STATUS^ORQOR2	CPRSNUM+3
$$JOBSTS^PSO283P1	PSO283PI+8, PSO283PI+38
CALCEXP^PSO283P1	SET+7, SET+33
DISPLAY^PSO283P1	PSO283PI+43
JOB^PSO283P1	PSO283PI+46, PI+4
LOG^PSO283P1	PI+3, EN+7, EN+45, STOP+3, SETXTMP+2, SETXTMP+4
MAIL^PSO283P1	EN+46, STOP+4
$$SITE^VASITE	EN+13
$$DT^XLFDT	EN+11, EN+18
$$FMADD^XLFDT	EN+14, SETXTMP+6
$$FMDIFF^XLFDT	SET+32
$$FMTE^XLFDT	PSO283PI+14, PSO283PI+16
$$NOW^XLFDT	PI+4, EN+43, STOP+2, SETXTMP+2, SETXTMP+4, SETXTMP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Expiration Date problem tally patch for Outpatient Pharmacy prescriptions" Line Location: PSO283PI+10
Function Call: WRITE	Prompt: !?5,"=========================================================================" Line Location: PSO283PI+11
Function Call: WRITE	Prompt: !?5,"Current status: " Line Location: PSO283PI+12
Function Call: WRITE	Prompt: !!,"Stopping..." Line Location: PSO283PI+34
Function Call: WRITE	Prompt: $S(UNABLE:"NOT OK (may no longer be running)",1:"OK") Line Location: PSO283PI+39
Routine Call	DIR Line Location: PSO283PI+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN+31
^PSDRUG - [#50]	EN+31
^PSRX - [#52]	EN+17, EN+19, EN+21, EN+22, EN+23, EN+24, EN+25, EN+26, CPRSNUM+2
^XTMP(	PSO283PI+14, PSO283PI+16, PSO283PI+17, PSO283PI+36, PSO283PI+37, PSO283PI+38, PSO283PI+40!, PSO283PI+44!, PI+2!, EN+7 , EN+16, EN+37, EN+38, EN+42, EN+43, EN+44!, QUIT+1, STOP+1!, STOP+2, SET+11 , SET+12, SET+16, SET+18, SET+20, SET+21, SET+25, SET+26, SET+36, SET+37, SET+38 , SET+39, SET+43, SET+44, SET+51, SET+52, SET+56, SET+57, SET+61, SET+63, SET+70 , SET+71, SETXTMP+1, SETXTMP+2, SETXTMP+3, SETXTMP+4, SETXTMP+5!, SETXTMP+6

Label References

Name	Line Occurrences
$$CPRSNUM	SET+6, SET+30, SET+47, SET+66
QUIT	PSO283PI+31, PSO283PI+34, PSO283PI+42, PSO283PI+43, EN+7, EN+40
SET	EN+34
SETXTMP	EN+9
STOP	EN+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	PSO283PI+5~, PSO283PI+32*, PSO283PI+34, PSO283PI+42, PSO283PI+43, PSO283PI+44
BADRXCNT	EN+2~, EN+37, EN+42
BADRXCNT("LASTRX"	EN+28*
BADRXCNT(10	SET+57*
BADRXCNT(102	SET+10*
BADRXCNT(103	SET+16*
BADRXCNT(104	SET+18*
BADRXCNT(105	SET+24*
BADRXCNT(106	SET+36*
BADRXCNT(107	SET+37*
BADRXCNT(108	SET+42*
BADRXCNT(109	SET+50*
BADRXCNT(11	SET+62*
BADRXCNT(110	SET+55*
BADRXCNT(111	SET+60*
BADRXCNT(112	SET+69*
BADRXCNT(12	SET+71*
BADRXCNT(13	EN+30, EN+31, EN+32*
BADRXCNT(14	EN+27*
BADRXCNT(2	SET+12*
BADRXCNT(3	SET+20*
BADRXCNT(4	SET+21*
BADRXCNT(5	SET+26*
BADRXCNT(6	SET+38*
BADRXCNT(7	SET+39*
BADRXCNT(8	SET+44*
BADRXCNT(9	SET+52*
COUNTER	EN+1~, EN+17*, EN+18, EN+36
CPRSDC	SET+1~, SET+2*, SET+15, SET+17, SET+19, SET+34, SET+48
CPRSTA	SET+1~, SET+6, SET+15, SET+17, SET+19, SET+30, SET+34, SET+47*, SET+48
CUTOFF	EN+1~, EN+14*, SET+8, SET+46
DA	SET+1~
DAYSSUP	EN+2~, EN+24*
DIE	SET+1~
DIR	PSO283PI+5~
DIR("A"	PSO283PI+19, PSO283PI+21, PSO283PI+23, PSO283PI+25, PSO283PI+27, PSO283PI+29, PSO283PI+30*
DIR("B"	PSO283PI+21, PSO283PI+29
DIR(0	PSO283PI+19, PSO283PI+21, PSO283PI+23, PSO283PI+25, PSO283PI+27, PSO283PI+28, PSO283PI+30*
DIROUT	PSO283PI+5~, PSO283PI+31
DIRUT	PSO283PI+5~, PSO283PI+31
DR	SET+1~
DRUG	EN+1~, EN+21*, EN+30, EN+31
DT	EN+11, EN+14, EN+18
DTOUT	PSO283PI+5~, PSO283PI+31
DUOUT	PSO283PI+5~, PSO283PI+31
DUZ	EN+4
EXPIRDT	EN+2~, EN+26*, SET+5, SET+7, SET+8, SET+32, SET+46
EXPJOBDT	PSO283PI+5~, PI+1~
ISSUEDT	EN+2~, EN+23*, EN+32, SET+32
JOBSTS	PSO283PI+5~, PSO283PI+8*, PSO283PI+13, PSO283PI+14, PSO283PI+15, PSO283PI+16, PSO283PI+20, PSO283PI+22, PSO283PI+24, PSO283PI+26 , PSO283PI+28
NEWEXPDT	SET+1~, SET+31, SET+33, SET+36, SET+37, SET+38, SET+39, SET+40
NMSP	PSO283PI+5~, PSO283PI+6, PSO283PI+14, PSO283PI+16, PSO283PI+17, PSO283PI+36, PSO283PI+37, PSO283PI+38, PSO283PI+40, PSO283PI+44 , PI+1~, PI+2, EN+1~, EN+4*, EN+7, EN+16, EN+37, EN+38, EN+42, EN+43 , EN+44, QUIT+1, STOP+1, STOP+2, SET+11, SET+12, SET+16, SET+18, SET+20, SET+21 , SET+25, SET+26, SET+36, SET+37, SET+38, SET+39, SET+43, SET+44, SET+51, SET+52 , SET+56, SET+57, SET+61, SET+63, SET+70, SET+71, SETXTMP+1, SETXTMP+2, SETXTMP+3, SETXTMP+4 , SETXTMP+5, SETXTMP+6
NUMREFS	EN+2~, EN+25*
ORN	SET+1~, SET+6, SET+13, SET+22, SET+30, SET+34, SET+47, SET+48, SET+53, SET+58 , SET+66, SET+67, CPRSNUM+1~, CPRSNUM+2, CPRSNUM+3, CPRSNUM+4
PATICN	EN+1~, EN+20*, SET+9, SET+14, SET+23, SET+35, SET+41, SET+49, SET+54, SET+59 , SET+68
PATIENT	EN+1~, EN+19*, EN+20, EN+30, EN+31
PSOACT	EN+1~
PSODUZ	PSO283PI+5~, EN+4*
PSOINACT	EN+1~, EN+15*, SET+46
PSOINST	EN+1~, EN+13*
RXP	EN+1~, EN+16, EN+17, EN+19, EN+21, EN+22, EN+23, EN+24, EN+25, EN+26 , EN+28, SET+6, SET+11, SET+12, SET+16, SET+18, SET+20, SET+21, SET+25, SET+26 , SET+30, SET+36, SET+37, SET+38, SET+39, SET+43, SET+44, SET+47, SET+51, SET+52 , SET+56, SET+57, SET+61, SET+63, SET+66, SET+70, SET+71, CPRSNUM~, CPRSNUM+2
STA	CPRSNUM+1~, CPRSNUM+2, CPRSNUM+3, CPRSNUM+4
STATUS	EN+1~, EN+22*, SET+29, SET+46, SET+65
STOP	EN+1~, EN+16, EN+17, EN+38, EN+40
TIME	PSO283PI+35~, PSO283PI+36, PSO283PI+38
UNABLE	PSO283PI+35~, PSO283PI+36, PSO283PI+37, PSO283PI+38, PSO283PI+39
Y	PSO283PI+5~, PSO283PI+32

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSO283PI

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: