Routine: APCDKLV

Information

APCDKLV ; IHS/CMI/LAB - LINK DIF DAY LAB VISITS ;

Source Information

Source file <APCDKLV.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

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Patient Care Component	3	APCDKBV APCDKMV APCDKRV

Entry Points

Name	Comments	DBIA/ICR reference
O	;;9;;OTHER
DATES
RVDT(X)	; -- returns reverse date
LABCLN()	; -- returns ien for lab clinic code
I	;;1;;IHS
PROVP()	; -- returns pointer file # for providers
6	;;8;;638
MANUAL	;EP; entry to run linker manually
LABTECH()	; -- returns code if lab tech entry exists in file 200
T	;;3;;TRIBAL
QUEUE	;EP; entry point to run linker in background
P	;;3;;TRIBAL
LINK(APCDVST)	; -- find orig visit and set link
U	;;9;;OTHER
C	;;2;;CONTRACT
CODE(D)	;EP
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+10
^APCDALVR	STUFF+19, STUFF+31
$$VD^APCLV	STUFF+17
$$IMP^AUPNSICD	CODE+2
MOD^AUPNVSIT	STUFF+6
FILE^DICN	START+20
^DIE	LINK+20, STUFF+10, STUFF+33
^DIR	MANUAL+7, MANUAL+12, DATES+2, DATES+4, DATES+27
^XBCLS	MANUAL+2
$$VALI^XBDIQ1	QUEUE+4, DATES+9, START+12, STUFF+3, STUFF+9, LABTECH+2
ENP^XBDIQ1	LINK+5
$$FMTE^XLFDT	DATES+12, DATES+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Orphaned Lab 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 LAB VISITS",!! Line Location: MANUAL+2
Function Call: WRITE	Prompt: !!,$C(7),"You do not have a generic Lab Technician provider entry" Line Location: MANUAL+5
Function Call: WRITE	Prompt: !,"in your database. Cannot run fix for unlinked labs." Line Location: MANUAL+6
Function Call: WRITE	Prompt: !!,$C(7),"You do not have LABORATORY as a clinic stop. Cannot run" Line Location: MANUAL+10
Function Call: WRITE	Prompt: !,"fix for unlinked labs." Line Location: MANUAL+11
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+7
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Cannot pick date within PCC Delay. Select a date" Line Location: DATES+11
Function Call: WRITE	Prompt: !,"earlier than ",$$FMTE^XLFDT(X,5),"." Line Location: DATES+12
Function Call: WRITE	Prompt: !!,"Search begun" Line Location: DATES+29
Function Call: WRITE	Prompt: !!,"Search COMPLETED. ",+$G(APCDCNT)," Visits fixed." Line Location: DATES+31
Function Call: WRITE	Prompt: "." Line Location: START+18
Routine Call	DIE Line Location: LINK+20 STUFF+10 STUFF+33
Routine Call	DIR Line Location: MANUAL+7 MANUAL+12 DATES+2 DATES+4 DATES+27

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
^AUPNVLAB - [#9000010.09]	START+14
^AUPNVLAB("AD"	START+11, START+14, LINK+4
^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
^AUTTSITE(1	QUEUE+8, DATES+14
^DD(9000010.06	PROVP+1
^DIC(40.7 - [#40.7]	LABCLN+1
^DIC(6 - [#6]	STUFF+27, LABTECH+5
^VA(200 - [#200]	STUFF+28, LABTECH+4

Label References

Name	Line Occurrences
$$CODE	STUFF+17
$$LABCLN	QUEUE+3, MANUAL+9, STUFF+10
$$LABTECH	QUEUE+3, MANUAL+4, STUFF+27, STUFF+28
$$PROVP	STUFF+27, STUFF+28, LABTECH+4, LABTECH+5
$$RVDT	LINK+11
DATES	DATES+6, DATES+10, DATES+15, DATES+18
LINK	START+16
START	QUEUE+11, DATES+30
STUFF	START+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Patient Care Component

Routine: APCDKLV

Call Graph Total: 11

Caller Graph Total: 3