Routine: ACDPCCLS

Information

ACDPCCLS ;IHS/ADC/EDE/KML - GEN PCC LINK/HC;

Source Information

Source file <ACDPCCLS.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Alcohol Chemical Dependency	6	^ACD (GETVSITS,PAUSE)^ACDDEU (DIC,DIQ1)^ACDFMC ^ACDKILL VISIT^ACDPCCL ^ACDPCCLC
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HCP	; EP-GENERATE HARDCOPY FOR SELECTED PATIENTS/VISITS
SETIIF	; HARDCOPY FROM IIF ENTRY
SETFU	; FOLLOWUP
GENOUTP	; EP - PRINT HARDCOPY OR GENERATE PCC LINK FOR CDMIS VISIT
GETDTRNG	; GET DATE RANGE FOR VISIT
GETPAT	; GET PATIENT
SETIN	; INITIAL
START	;
INIT	;
SELECT	; SELECT A CDMIS VISIT
SETRE	; REOPEN
EOJ	;
MAIN	;
SETTD	; HARDCOPY FROM TDC ENTRY
PATLOOP	; DISPLAY PATIENTS UNTIL DONE
SETCS	; HARDCOPY OR PCC LINK FROM CLIENT SERVICES

External References

Name	Field # of Occurrence
^ACD	INIT+1
GETVSITS^ACDDEU	PATLOOP+3
PAUSE^ACDDEU	SELECT+20
DIC^ACDFMC	GETPAT+3
DIQ1^ACDFMC	SELECT+17
^ACDKILL	EOJ+2
VISIT^ACDPCCL	GENOUTP+5
^ACDPCCLC	INIT+9
^DIR	INIT+3, SELECT+24, GETDTRNG+4, GETDTRNG+7
$$FMTE^XLFDT	GETDTRNG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"----------",!,"No CDMIS visits!",!,"----------",! Line Location: SELECT+5
Function Call: WRITE	Prompt: ! Line Location: SELECT+7
Function Call: WRITE	Prompt: ! Line Location: SELECT+9
Function Call: WRITE	Prompt: ACDLC,?5,ACDPDD(9002172.1,ACDY,.01),?18," - ",ACDPDD(9002172.1,ACDY,1),"/",ACDPDD(9002172.1,ACDY,5)," ",ACDPDD(9002172.1,ACDY,3),! Line Location: SELECT+18
Function Call: WRITE	Prompt: !,"No visits in date range",! Line Location: SELECT+23
Function Call: WRITE	Prompt: !,"Patient has ",ACDVCNT," visits between ",$$FMTE^XLFDT(ACDDTLOW,"1")," and ",$$FMTE^XLFDT(ACDDTHI,"1"),".",!,"Enter date range of desired visit.",! Line Location: GETDTRNG+3
Function Call: WRITE	Prompt: !!,"This visit already has an associated PCC visit!",! Line Location: GENOUTP+1
Function Call: WRITE	Prompt: !,"INVALID TYPE CONTACT",! Line Location: GENOUTP+3
Routine Call	DIR Line Location: INIT+3 SELECT+24 GETDTRNG+4 GETDTRNG+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDCS("C"	SETCS+2
^ACDIIF("C"	SETIIF+3
^ACDTDC("C"	SETTD+3
^ACDVIS - [#9002172.1]	GENOUTP+1, GENOUTP+2
^DPT - [#2]	GETPAT+6
^TMP("ACD"	SELECT+5, SELECT+12, GETDTRNG+2

Label References

Name	Line Occurrences
@(	GENOUTP+4
EOJ	START+3, MAIN+2
GENOUTP	PATLOOP+7
GETDTRNG	SELECT+7
GETPAT	PATLOOP+1
INIT	START+2
MAIN	START+4, HCP+5
PATLOOP	MAIN+1
SELECT	PATLOOP+5
SETIIF	SETIN+1, SETRE+1, SETFU+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACD6DIG	INIT+1
>> ACDCONT	GENOUTP+4*
>> ACDDFN	GETPAT+6*
>> ACDDFNP	GETPAT+6*, SETIIF+5, SETIIF+6, SETTD+5, SETTD+6, SETCS+3
>> ACDDTHI	SELECT+6, SELECT+12, GETDTRNG+2, GETDTRNG+3, GETDTRNG+9*
>> ACDDTLOW	SELECT+6, SELECT+11, SELECT+12, GETDTRNG+2, GETDTRNG+3, GETDTRNG+6*
ACDEV	EOJ+1!
ACDFHCP	START+1~, INIT+6, INIT+8, HCP+2~, HCP+4*
ACDFPCC	START+1~, INIT+6, INIT+7, INIT+9, HCP+2~, HCP+3*, GENOUTP+1
ACDLC	SELECT+10, SELECT+14, SELECT+15, SELECT+18, SELECT+20, SELECT+23, SELECT+24, SELECT+26!
>> ACDMODE	INIT+10, HCP+4
>> ACDOPT	INIT+5*, INIT+7, INIT+8
ACDPCCL	SETIIF+2!, SETTD+2!, EOJ+1!
ACDPCCL(	SETIIF+5, SETIIF+6, SETTD+5, SETTD+6, SETCS+3*
ACDPCCLS	GENOUTP+5*!
ACDPDD	SELECT+19!
ACDPDD(	SELECT+18
>> ACDQ	START+3, INIT+2, INIT+11, HCP+4, MAIN+1, PATLOOP+2, PATLOOP+4, PATLOOP+6, GETPAT+1, GETPAT+7* , SELECT+1, SELECT+7, SELECT+8, SELECT+12, SELECT+13, SELECT+20, SELECT+22, SELECT+28, GETDTRNG+1, GETDTRNG+10 , GENOUTP+5, SETIIF+1, SETIIF+7, SETTD+1, SETTD+7
>> ACDVCNT	SELECT+7, GETDTRNG+3
>> ACDVIEN	SELECT+3, SELECT+25, SELECT+27, GENOUTP+1, GENOUTP+2, SETIIF+3, SETIIF+5, SETIIF+6, SETTD+3, SETTD+5 , SETTD+6, SETCS+2, SETCS+3
ACDVLST	SELECT+4!, SELECT+26!
ACDVLST(	SELECT+15*, SELECT+25
>> ACDX	SELECT+11, SELECT+12
>> ACDY	SELECT+12, SELECT+15, SELECT+16, SELECT+18, SETCS+1, SETCS+2*, SETCS+3
>> AUPNLK("ALL"	GETPAT+2*, GETPAT+4!
DA	INIT+3!, SELECT+16*, SELECT+24!, GETDTRNG+4!, GETDTRNG+7!
>> DIC	GETPAT+3, SELECT+16
>> DIC("S"	GETPAT+3*
>> DIC(0	GETPAT+3*
>> DIQ	SELECT+16*
DIR	INIT+3!, SELECT+24!, GETDTRNG+4!, GETDTRNG+7!
DIR("A"	INIT+3, SELECT+24, GETDTRNG+4, GETDTRNG+7
DIR("B"	INIT+3, GETDTRNG+7
DIR(0	INIT+3, SELECT+24, GETDTRNG+4, GETDTRNG+7
>> DIRUT	INIT+4, SELECT+20, GETDTRNG+8
>> DR	SELECT+16*
U	GETPAT+6, GENOUTP+2
>> X	INIT+9, GETDTRNG+7, GENOUTP+2, GENOUTP+3, GENOUTP+4
>> Y	INIT+5, GETPAT+5, GETPAT+6, SELECT+25, GETDTRNG+5, GETDTRNG+6, GETDTRNG+7, GETDTRNG+9, SETIIF+3, SETIIF+4 , SETIIF+5, SETTD+3, SETTD+4, SETTD+5

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDPCCLS

Call Graph Total: 8