Routine: APCDKBV

Information

APCDKBV ; IHS/CMI/LAB - LINK DIF DAY BLOOD BANK VISITS ;

Source Information

Source file <APCDKBV.m>

Call Graph

Call Graph Total: 11

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

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
V	;;9;;VA (OTHER)
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
6	;;8;;638
START(APCDZMOD)	; begin of linker logic ; APCDZMOD=1 if MOD^AUPNVSIT is to be called
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
$$CODE^APCDKLV	STUFF+17
$$VD^APCLV	STUFF+17
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 V Blood Bank 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 BLOOD BANK 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 V BLOOD BANK visits." 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
^AUPNVBB - [#9000010.31]	START+14
^AUPNVBB("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
$$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
CODE	LABTECH+1~, LABTECH+3*, LABTECH+4, LABTECH+5, LABTECH+6
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: APCDKBV

Call Graph Total: 11