Routine: APCLDMAP

Information

APCLDMAP ; IHS/CMI/LAB - print hs for dm patients with appts ;

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
IHS VA Utilities	4	^XBDBQUE ^XBFMK GUIR^XBLM EN^XBVK
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU
IHS Patient	1	$$HRN^AUPNPAT
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
DATES
DEMO	;
GUIEP	;EP
CLIN	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
REGISTER	;get register name
BDMG(APCLREG,APCLBD,APCLED,APCLCLN)	;EP - GUI DMS Entry Point
EOJ	;
ZIS	;
ENDLOG	;-- write the end of the log
HEADER	;EP
POST	;
EP	;EP - called from option interactive
CLIN1	;
HEADER1	;
TEST	;
PROC	;

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+6, ENDLOG+1
^%ZTLOAD	BDMG+20
$$DEMO^APCLUTL	PROC+6
DEMOCHK^APCLUTL	DEMO+1
$$HRN^AUPNPAT	PRINT+8
^DIC	REGISTER+2, CLIN1+2
FILE^DICN	BDMG+12
^DIE	ENDLOG+4
IX1^DIK	GUIEP+10
^DIR	DATES+2, DATES+4, CLIN+2, DONE+1, HEADER+2, EOP+5
^XBDBQUE	DEMO+4
^XBFMK	EOJ+1, BDMG+17
GUIR^XBLM	GUIEP+4
EN^XBVK	EOJ+3
$$FMADD^XLFDT	DATES+8, BDMG+2, PROC+2
$$FMTE^XLFDT	PRINT+8, HEADER1+3, HEADER1+5
$$NOW^XLFDT	BDMG+9, BDMG+20
$$ADD^XPDMENU	POST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print a list of all patients on a register" Line Location: EP+3
Function Call: WRITE	Prompt: !,"e.g. Diabetes Register) who have an appointment in a date range" Line Location: EP+4
Function Call: WRITE	Prompt: !,"in any clinic or in a selected set of clinics.",!! Line Location: EP+5
Function Call: WRITE	Prompt: !!,"You will be asked to enter the name of the register, the date range of the" Line Location: EP+6
Function Call: WRITE	Prompt: !,"appointments and the clinic names if selecting a set of clinics.",! Line Location: EP+7
Function Call: WRITE	Prompt: ! Line Location: REGISTER+2
Function Call: WRITE	Prompt: !,"No Register Selected." Line Location: REGISTER+3
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: ! Line Location: CLIN1+1
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",! Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !,$$CTR("PATIENTS ON THE "_$P(^ACM(41.1,APCLREG,0),U)_" REGISTER WITH AN APPOINTMENT",80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR("CLINICS: "_$S($D(APCLCLN):"USER SELECTED",1:"ANY"),80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,"HRN",?7,"PATIENT NAME",?38,"CLINIC NAME",?59,"DATE",?72,"TIME" Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+8
Function Call: WRITE	Prompt: "Attempt to new appt list of reg pats failed.." Line Location: POST+3
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: REGISTER+2 CLIN1+2
Routine Call	DIR Line Location: DATES+2 DATES+4 CLIN+2 DONE+1 HEADER+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls
^APCLGUIR - [#9001004.4]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	PROC+3, PROC+5
^ACM(41.1 - [#9002241.1]	HEADER1+4
^APCLGUIR - [#9001004.4]	GUIEP+8, GUIEP+9
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC+7, PROC+8, PROC+9, PROC+10, PRINT+8
^SC - [#44]	PRINT+8
^TMP($J	GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200]	HEADER1+3, USR+1
^XTMP("APCLDMAP"	PROC+2, PROC+10, DONE+4!, PRINT+3, PRINT+4, PRINT+5, PRINT+6

Label References

Name	Line Occurrences
$$CTR	HEADER1+4, HEADER1+5, HEADER1+6
BDMG	TEST+1
CLIN	CLIN1+3, CLIN1+4, CLIN1+7, DEMO+2
CLIN1	CLIN1+9
DATES	DATES+6, CLIN+3
DONE	PRINT+3, PRINT+9
ENDLOG	GUIEP+11
EOJ	EP+1, REGISTER+3, BDMG+21
HEADER	PRINT+2, PRINT+7
HEADER1	HEADER+1
PROC	GUIEP+1
REGISTER	DATES+2, DATES+4
ZIS	CLIN+5, CLIN1+5, CLIN1+6

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+7, ENDLOG+2
APCLBD	DATES!, DATES+2*, DATES+6, DATES+8, BDMG~, BDMG+2, HEADER1+5
>> APCLC	PRINT+6*, PRINT+8
APCLCLN	CLIN+1, CLIN+4, CLIN+5!, CLIN+7!, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+7, BDMG~, PROC+9 , HEADER1+6
APCLCLN(	CLIN1+8*, PROC+9
>> APCLD	PRINT+5*, PRINT+6, PRINT+8
>> APCLDATA	GUIEP+6, GUIEP+7, GUIEP+8
>> APCLDEMO	DEMO+1, DEMO+2, PROC+6
>> APCLDMX	PROC+3*, PROC+5
>> APCLDMY	PROC+7*, PROC+8, PROC+9, PROC+10
APCLED	DATES!, DATES+4*, DATES+6, BDMG~, PROC+7, HEADER1+5
APCLET	DONE+3!
>> APCLGUI	BDMG+3*, PRINT+1, HEADER1+2
APCLH	PROC+1*, PROC+10, DONE+4!, PRINT+3, PRINT+4, PRINT+5, PRINT+6
APCLIEN	BDMG+4~, BDMG+14, BDMG+15, BDMG+16, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> APCLIOSL	PRINT+1*, PRINT+7
APCLJ	PROC+1*, PROC+10, DONE+4!, PRINT+3, PRINT+4, PRINT+5, PRINT+6
APCLM	DONE+3!
APCLNOW	BDMG+4~, BDMG+7, BDMG+10, ENDLOG+2, ENDLOG+3
APCLOPT	BDMG+4~, BDMG+5*, BDMG+10
>> APCLPG	PRINT+2, HEADER+1, HEADER1+1, HEADER1+2, HEADER1+3
APCLQ	PRINT+2!, PRINT+4, PRINT+5, PRINT+6, PRINT+7, HEADER+2*
APCLREG	REGISTER+1, REGISTER+3, REGISTER+4*, BDMG~, PROC+3, HEADER1+4
APCLS	DONE+3!
>> APCLSD	DATES+8, BDMG+2, PROC+7
APCLTS	DONE+3!
>> BDMGIEN	BDMG+16*
>> C	GUIEP+5, GUIEP+8, GUIEP+9
D0	BDMG+8!
DA	CLIN+2!, BDMG+13!, GUIEP+10, ENDLOG+3, ENDLOG+5!
DD	BDMG+8!
>> DFN	PROC+5, PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PRINT+4, PRINT+5, PRINT+6, PRINT+8
DFOUT	EOP+4!
DIADD	BDMG+11*, BDMG+13!
DIC	REGISTER+2, CLIN1+1, CLIN1+2!, EOJ+2!, BDMG+8!, BDMG+11*, BDMG+13!
DIC("A"	REGISTER+2, CLIN1+1
DIC("DR"	BDMG+10*
DIC("S"	CLIN1+2*
DIC(0	REGISTER+2, CLIN1+1, BDMG+11*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+10*
DIR	DATES+1!, DATES+3!, CLIN+2!, EOJ+2!, DONE+1!, HEADER+2!, EOP+3~
DIR("A"	DATES+1, DATES+3, CLIN+2, DONE+1, EOP+5*
DIR("B"	CLIN+2*
DIR(0	DATES+1, DATES+3, CLIN+2, DONE+1, HEADER+2, EOP+5
DIRUT	CLIN+3, DONE+1*, EOP+4!
DLAYGO	BDMG+11*, BDMG+13!
DLOUT	EOP+4!
DR	ENDLOG+3*, ENDLOG+5!
DT	GUIEP+9, PROC+2, HEADER1+3
DTOUT	HEADER+2, EOP+4!
DUOUT	DONE+1, EOP+4!
DUZ	BDMG+9, BDMG+10, HEADER1+3, USR+1
DUZ(2	PRINT+8, LOC+1
IO	DONE+1, HEADER+2
IO("S"	EOP+2
IO(0	DONE+1, HEADER+2
IOF	EP+2, DONE+2, HEADER1+1
IOM	GUIEP+3*, CTR+1
IOSL	PRINT+1
IOST	DONE+1, HEADER+2, EOP+1
>> IOT	EOP+2
U	PROC+5, PROC+8, PROC+9, PROC+10, PRINT+8, HEADER1+3, HEADER1+4, USR+1, LOC+1
X	CLIN1+4, CLIN1+7, BDMG+9, GUIEP+5, GUIEP+6, GUIEP+8, PROC+9, HEADER1+5, CTR~, CTR+1 , POST+1~, POST+2*, POST+3
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	REGISTER+3, REGISTER+4, DATES+2, DATES+4, CLIN+4, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+8, BDMG+14 , BDMG+15, HEADER+2, CTR~, CTR+1
>> ZTDESC	BDMG+20*
>> ZTDTH	BDMG+20*
>> ZTIO	BDMG+20*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+13*
>> ZTRTN	BDMG+20*
ZTSAVE	BDMG+18!
ZTSAVE("*"	BDMG+18*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDMAP

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: