Routine: APCDKIV

Information

APCDKIV ; IHS/CMI/LAB - LINK DIF DAY IMMUNIZATION VISITS ;

Source Information

Source file <APCDKIV.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	4	C^%DTC FILE^DICN ^DIE ^DIR
IHS Patient	2	$$IMP^AUPNSICD MOD^AUPNVSIT
IHS VA Utilities	2	^XBCLS ($$VALI,ENP)^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component	1	^APCDALVR
Patient Care Component Reports	1	$$VD^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
O	;;9;;OTHER
DATES
RVDT(X)	; -- returns reverse date
I	;;1;;IHS
PROVP()	; -- returns pointer file # for providers
6	;;8;;638
MANUAL	;EP; entry to run linker manually
C	;;2;;CONTRACT
T	;;3;;TRIBAL
QUEUE	;EP; entry point to run linker in background
P	;;3;;TRIBAL
LINK(APCDVST)	; -- find orig visit and set link
IMMCLN()	; -- returns ien for imm clinic code
CODE(D)	;
START(APCDZMOD)	; begin of linker logic ; APCDZMOD=1 if MOD^AUPNVSIT is to be called
V	;;9;;VA (OTHER)
STUFF(AUPNVSIT,APCDZMOD)	; -- stuff pov and provider
AFFIL	;; affiliation recode

External References

Name	Field # of Occurrence
C^%DTC	QUEUE+5, QUEUE+6, DATES+11
^APCDALVR	STUFF+21, STUFF+36
$$VD^APCLV	STUFF+19
$$IMP^AUPNSICD	CODE+2
MOD^AUPNVSIT	STUFF+6
FILE^DICN	START+20
^DIE	LINK+20, STUFF+10, STUFF+39
^DIR	MANUAL+7, DATES+3, DATES+5, DATES+28
^XBCLS	MANUAL+2
$$VALI^XBDIQ1	QUEUE+4, DATES+10, START+12, STUFF+3, STUFF+9
ENP^XBDIQ1	LINK+5
$$FMTE^XLFDT	DATES+13, DATES+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Orphaned Immunization Linker is being queued to run in the background!",!,"Dates of the run will be automatically calculated based on the PCC delay",!,"value.",! Line Location: QUEUE+1
Function Call: WRITE	Prompt: !!?20,"FIX UNLINKED IMMUNIZATION VISITS",!! Line Location: MANUAL+2
Function Call: WRITE	Prompt: !!,$C(7),"You do not have IMMUNIZATION as a clinic stop. Cannot run" Line Location: MANUAL+5
Function Call: WRITE	Prompt: !,"fix for unlinked immunization visits." Line Location: MANUAL+6
Function Call: WRITE	Prompt: !,"When choosing a date rante for visits keep in mind that you should run this",!,"utility for visit dates that have not been completed by data entry.",!! Line Location: DATES+1
Function Call: WRITE	Prompt: ! Line Location: DATES+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+8
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Cannot pick date within PCC Delay. Select a date" Line Location: DATES+12
Function Call: WRITE	Prompt: !,"earlier than ",$$FMTE^XLFDT(X,5),"." Line Location: DATES+13
Function Call: WRITE	Prompt: !!,"Search begun" Line Location: DATES+30
Function Call: WRITE	Prompt: !!,"Search COMPLETED. ",+$G(APCDCNT)," Visits fixed." Line Location: DATES+32
Function Call: WRITE	Prompt: "." Line Location: START+18
Routine Call	DIE Line Location: LINK+20 STUFF+10 STUFF+39
Routine Call	DIR Line Location: MANUAL+7 DATES+3 DATES+5 DATES+28

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^APCDLLOG - [#9001001.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	START+19
^AUPNVIMM - [#9000010.11]	STUFF+18, STUFF+30
^AUPNVIMM("AD"	START+11, LINK+4, STUFF+14, STUFF+26
^AUPNVPOV("AD"	START+10
^AUPNVPRV - [#9000010.06]	LINK+17
^AUPNVPRV("AD"	START+10, LINK+16
^AUPNVSIT("AA"	LINK+12, LINK+14
^AUPNVSIT("B"	START+7, START+9
^AUTTIMM - [#9999999.14]	STUFF+18, STUFF+20
^AUTTSITE(1	QUEUE+8, DATES+15
^DD(9000010.06	PROVP+1
^DIC(40.7 - [#40.7]	IMMCLN+1
^VA(200 - [#200]	STUFF+32

Label References

Name	Line Occurrences
$$CODE	STUFF+19
$$IMMCLN	QUEUE+3, MANUAL+4, STUFF+10
$$PROVP	STUFF+32
$$RVDT	LINK+11
DATES	DATES+7, DATES+11, DATES+16, DATES+19
START	QUEUE+11, DATES+31
STUFF	START+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	STUFF+2~, STUFF+15!, STUFF+27!
APCDALVR("APCDAFLG"	STUFF+37
APCDALVR("APCDATMP"	STUFF+17, STUFF+29
APCDALVR("APCDPAT"	STUFF+16, STUFF+28
APCDALVR("APCDTNQ"	STUFF+20*
APCDALVR("APCDTPOV"	STUFF+19*
APCDALVR("APCDTPRO"	STUFF+34*
APCDALVR("APCDTPS"	STUFF+35*
APCDALVR("APCDVSIT"	STUFF+16, STUFF+28
APCDBD	QUEUE+6, DATES!, DATES+3, DATES+7, START+3, START+6, START+22!
APCDCNT	DATES+32, START+6, START+18, START+22!
APCDED	QUEUE+5, QUEUE+6, QUEUE+10, DATES!, DATES+5, DATES+7, DATES+11, DATES+19, START+3, START+6 , START+22!
APCDEND	START+2~, START+6*, START+7
>> APCDI	STUFF+18*, STUFF+20
APCDIMM	LINK+1~, LINK+4, LINK+5, STUFF+14, STUFF+18, STUFF+26*, STUFF+30
APCDIMPR	STUFF+25!, STUFF+35
APCDIMPR(	STUFF+33, STUFF+37*
APCDT	START+2~, START+6, START+7, START+9, STUFF+1~
APCDV	START+2~, START+8, START+9, START+10, START+11, START+12, START+17, START+20, STUFF+1~
APCDVST	LINK~, LINK+4, LINK+20
APCDX	LINK+1~, LINK+5!, STUFF+30, STUFF+31, STUFF+32, STUFF+33, STUFF+34, STUFF+37
APCDX(	LINK+8
APCDX(1204	LINK+7
APCDX(1211	LINK+6
APCDZMOD	START~, START+17, STUFF~, STUFF+6
AUPNVSIT	STUFF~, STUFF+3, STUFF+9, STUFF+10, STUFF+14, STUFF+16, STUFF+19, STUFF+26, STUFF+28, STUFF+39
C	CODE+1~, CODE+2*, CODE+3
D	CODE~, CODE+2
D0	START+20!
DA	START+20!, LINK+20, STUFF+10, STUFF+39*!
DATE	LINK+1~, LINK+11, LINK+12, LINK+14
DD	START+20!
DELAY	QUEUE+2~, QUEUE+4, QUEUE+5, MANUAL+1~, DATES+10, DATES+11, DATES+15*, DATES+16, DATES+19, DATES+21
DFN	LINK+1~, LINK+8, LINK+12, LINK+14, STUFF+2~, STUFF+3, STUFF+16, STUFF+28
DIADD	START+20*!
DIC	START+20!*
DIC("DR"	START+20*
DIC(0	START+20*
DIE	START+20!, LINK+20, STUFF+10, STUFF+39*!
DINUM	START+20!
DIR	MANUAL+1~, DATES+2!, DATES+4!, DATES+22!
DIR("?"	DATES+24, DATES+25, DATES+26, DATES+27, DATES+28*
DIR("A"	MANUAL+7, DATES+2, DATES+4, DATES+23
DIR(0	MANUAL+7, DATES+2, DATES+4, DATES+22
DLAYGO	START+20*!
DO	START+20!
DR	START+20!, LINK+20, STUFF+10, STUFF+39*!
DT	QUEUE+5, DATES+11, START+20
DUZ(2	START+19
>> END	LINK+11*, LINK+12
>> I	STUFF+18*
LINK	LINK+1~, LINK+11!, LINK+12, LINK+16, LINK+17*, LINK+20
ORDPRV	LINK+1~, LINK+7*, LINK+17
ORDT	LINK+1~, LINK+6*, LINK+11
ORDV	LINK+1~, LINK+14*, LINK+16, LINK+17
PRV	LINK+1~, LINK+16*, LINK+17
U	QUEUE+8, DATES+15, DATES+28, START+19, STUFF+18, STUFF+20, STUFF+30, STUFF+32, PROVP+1
X	QUEUE+2~, QUEUE+5, QUEUE+6, QUEUE+7~, QUEUE+8, QUEUE+9, QUEUE+10, MANUAL+1~, DATES+11, DATES+13 , START+2~, START+12, START+20!, RVDT~, RVDT+1, PROVP+1~, PROVP+2
X1	QUEUE+2~, QUEUE+5, QUEUE+6, MANUAL+1~, DATES+11*
X2	QUEUE+2~, QUEUE+5, QUEUE+6, MANUAL+1~, DATES+11*
Y	MANUAL+1~, DATES+3, DATES+5, DATES+28, DATES+31, START+2~
>> ZTQUEUED	QUEUE+1, START+18

Customize PDF page

Package: Patient Care Component

Routine: APCDKIV

Call Graph Total: 11