Routine: APCLDMSM

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component Reports	3	$$START1^APCLDF ($$DEMO,DEMOCHK)^APCLUTL $$LASTVD^APCLV1
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$ADD^XPDMENU
VA Fileman	2	^DIC ^DIR
IHS Patient	1	($$COMMRES,$$DOD,$$HRN)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
DEMO	;
REPORT	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
SORTED	;
PRINT1
SETVAL	;
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
EOJ	;
LASTHF(P,C,BDATE,F)	;EP - get last factor in category C for patient P
ENDDATE	;
ZIS	;
HEADER	;EP
POST	;
EP	;EP - called from option interactive
SORT(P,APCLSORT)	;
HEADER1	;
PROC	;

External References

Name	Field # of Occurrence
$$START1^APCLDF	PROC+17
$$DEMO^APCLUTL	PROC+9
DEMOCHK^APCLUTL	DEMO+1
$$LASTVD^APCLV1	PRINT+7
$$COMMRES^AUPNPAT	SORT+4, PRINT+7
$$DOD^AUPNPAT	PROC+10
$$HRN^AUPNPAT	SORT+2, PRINT+7
^DIC	REGISTER+2
^DIR	REGISTER+7, REGISTER+11, REPORT+2, ENDDATE+3, SORTED+1, DONE+1, HEADER+2, EOP+5
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	LASTHF+16, LASTHF+18
^XBFMK	EOJ+1
EN^XBVK	EOJ+3
$$FMADD^XLFDT	PROC+3, PROC+11, PROC+17
$$FMTE^XLFDT	PRINT+17, HEADER1+2, HEADER1+7, LASTHF+18
$$ADD^XPDMENU	POST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will provide a list of patients on a register" Line Location: EP+3
Function Call: WRITE	Prompt: !,"(e.g. IHS Diabetes) that either are doing Self Monitoring of" Line Location: EP+4
Function Call: WRITE	Prompt: !,"Glucose or who are not doing Self Monitoring of Glucose." Line Location: EP+5
Function Call: WRITE	Prompt: !,"The following definitions/logic is used:" Line Location: EP+6
Function Call: WRITE	Prompt: !?5,"Yes, Doing self monitoring:" Line Location: EP+7
Function Call: WRITE	Prompt: !?7,"- the last health factor documented in the 365 days prior to the" Line Location: EP+8
Function Call: WRITE	Prompt: !?7,"end date is SELF MONITORING BLOOD GLUCOSE-YES" Line Location: EP+9
Function Call: WRITE	Prompt: !?7,"- the patient has had strips dispensed through pharmacy in " Line Location: EP+10
Function Call: WRITE	Prompt: !?7,"the 365 days prior to the end date." Line Location: EP+11
Function Call: WRITE	Prompt: !?5,"No, not doing self monitoring" Line Location: EP+12
Function Call: WRITE	Prompt: !?7,"- the last health factor documented in the 365 days prior to" Line Location: EP+13
Function Call: WRITE	Prompt: !?7,"the end date is SELF MONITORING BLOOD GLUCOSE-NO or SELF MONITORING" Line Location: EP+14
Function Call: WRITE	Prompt: !?7,"BLOOD GLUCOSE-REFUSED" Line Location: EP+15
Function Call: WRITE	Prompt: !?7,"- the patient has had no strips dispensed through pharmacy" Line Location: EP+16
Function Call: WRITE	Prompt: !?7,"- the patient has had neither strips dispensed nor a health" Line Location: EP+17
Function Call: WRITE	Prompt: !?7,"factor documented in the 365 days prior to the end date" Line Location: EP+18
Function Call: WRITE	Prompt: !!,"In the case of the following conflict: the patient's last" Line Location: EP+19
Function Call: WRITE	Prompt: !,"health factor states NO or REFUSED but they have had strips" Line Location: EP+20
Function Call: WRITE	Prompt: !,"dispensed they will show up on each report with a status of" Line Location: EP+21
Function Call: WRITE	Prompt: !,"Maybe." Line Location: EP+22
Function Call: WRITE	Prompt: ! Line Location: REGISTER+2
Function Call: WRITE	Prompt: !,"No Register Selected." Line Location: REGISTER+3
Function Call: WRITE	Prompt: !!,"Enter the end date to use in calculating the 365 day time period." Line Location: ENDDATE+2
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",! Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+6
Function Call: WRITE	Prompt: !?3,"Health Factor: ",APCLLHF Line Location: PRINT1+1
Function Call: WRITE	Prompt: !?3,"Medication Dispensed: ",APCLLMED Line Location: PRINT1+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("PATIENTS ON THE "_$P(^ACM(41.1,APCLREG,0),U)_" REGISTER - BLOOD GLUCOSE SELF MONITORING",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR("Patients Doing Self Monitoring",80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR("Patients NOT Doing Self Monitoring",80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR("List of Patients w/Self Monitoring of Blood Glucose Status",80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,"HRN",?7,"PATIENT NAME",?38,"COMMUNITY",?54,"LAST VISIT",?75,"SMBG?" Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+9
Function Call: WRITE	Prompt: "Attempt to new appt list of reg pats failed.." Line Location: POST+3
Routine Call	DIC Line Location: REGISTER+2
Routine Call	DIR Line Location: REGISTER+7 REGISTER+11 REPORT+2 ENDDATE+3 SORTED+1 DONE+1 HEADER+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	PROC+4, PROC+7, PROC+8
^ACM(41.1 - [#9002241.1]	HEADER1+3
^AUPNVHF - [#9000010.23]	LASTHF+17
^AUPNVHF("AA"	LASTHF+8, LASTHF+9, LASTHF+12
^AUTTHF("AC"	LASTHF+7
^AUTTHF("B"	LASTHF+4
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	SORT+3, PRINT+7
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("APCLDMSM"	PROC+1!, PROC+3, PROC+23, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10

Label References

Name	Line Occurrences
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
$$LASTHF	PROC+11
$$SORT	PROC+23
DONE	PRINT+2, PRINT1+3
ENDDATE	SORTED+2
EOJ	EP+1, REGISTER+3
HEADER	PRINT+1, PRINT+5
HEADER1	HEADER+1
REGISTER	REGISTER+8, REGISTER+12, REPORT+3
REPORT	REGISTER+9, ENDDATE+4
SETVAL	PROC+20
SORTED	DEMO+2

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLDEMO	DEMO+1, DEMO+2, PROC+9
>> APCLDMX	PROC+4*, PROC+7, PROC+8
>> APCLED	ENDDATE+1, ENDDATE+5, PROC+11, PROC+17, HEADER1+7
APCLET	DONE+3!
APCLH	PROC+2*, PROC+23, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10
>> APCLHF	PROC+11, PROC+12, PROC+13, PROC+14, PROC+15, PROC+23, PRINT+10, PRINT+16
>> APCLHFG	PROC+12, PROC+13, PROC+14, PROC+15, SETVAL+2, SETVAL+3, SETVAL+4, SETVAL+5, SETVAL+6, SETVAL+7
APCLJ	PROC+2*, PROC+23, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10
>> APCLLHF	PRINT+11, PRINT+16, PRINT1+1
>> APCLLMED	PRINT+11, PRINT+17, PRINT1+2
APCLM	DONE+3!
APCLMED	PROC+16!, PRINT+9*, PRINT+17
APCLMED(1	PROC+18, PROC+19, PROC+23
>> APCLMEDG	PROC+18, PROC+19, SETVAL+2, SETVAL+3, SETVAL+4
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
APCLQ	PRINT+1!, PRINT+3, PRINT+4, PRINT+5, HEADER+2*
>> APCLREG	REGISTER+1, REGISTER+3, REGISTER+4*, PROC+4, HEADER1+3
>> APCLRPT	REPORT+1, REPORT+4, PROC+21, PROC+22, PRINT+6, HEADER1+4, HEADER1+5, HEADER1+6
APCLS	DONE+3!
APCLSORT	SORTED+3*, PROC+23, SORT~, SORT+2, SORT+3, SORT+4
>> APCLSTAT	REGISTER+6, REGISTER+9, REGISTER+13*, PROC+7
>> APCLSV	PRINT+3*, PRINT+4, PRINT+8, PRINT+9, PRINT+10
APCLTS	DONE+3!
>> APCLVAL	PROC+21, PROC+22, PROC+23, SETVAL+1, SETVAL+2, SETVAL+3, SETVAL+4, SETVAL+5, SETVAL+6, SETVAL+7* , PRINT+8*, PRINT+12, PRINT+13, PRINT+14
BDATE	LASTHF~, LASTHF+11
C	LASTHF~, LASTHF+2, LASTHF+4*, LASTHF+5, LASTHF+7
D	LASTHF+6~, LASTHF+9, LASTHF+10, LASTHF+11, LASTHF+12, LASTHF+14, LASTHF+15, LASTHF+16, LASTHF+17, LASTHF+18 , LASTHF+19
DA	REGISTER+7!, REGISTER+11!, REPORT+2!, ENDDATE+3!, SORTED+1!
>> DFN	PROC+8, PROC+9, PROC+10, PROC+11, PROC+17, PROC+23, PRINT+4, PRINT+7, PRINT+8, PRINT+9 , PRINT+10
DFOUT	EOP+4!
DIC	REGISTER+2*, EOJ+2!
DIC("A"	REGISTER+2*
DIC(0	REGISTER+2*
DIR	REGISTER+7!, REGISTER+11!, REPORT+2!, ENDDATE+3!, SORTED+1!, EOJ+2!, DONE+1!, HEADER+2!, EOP+3~
DIR("A"	REGISTER+7, REGISTER+11, REPORT+2, ENDDATE+3, SORTED+1, DONE+1, EOP+5*
DIR("B"	REGISTER+7, REGISTER+11, REPORT+2, SORTED+1
DIR(0	REGISTER+7, REGISTER+11, REPORT+2, ENDDATE+3, SORTED+1, DONE+1, HEADER+2, EOP+5
DIRUT	REGISTER+8, REGISTER+12, REPORT+3, ENDDATE+4, SORTED+2, DONE+1*, EOP+4!
DLOUT	EOP+4!
DT	PROC+3, HEADER1+2
DTOUT	HEADER+2, EOP+4!
DUOUT	DONE+1, EOP+4!
DUZ	HEADER1+2, USR+1
DUZ(2	SORT+2, PRINT+7, LOC+1
>> E	PROC+17*
F	LASTHF~, LASTHF+3*, LASTHF+16, LASTHF+17, LASTHF+18
H	LASTHF+6~, LASTHF+7, LASTHF+8, LASTHF+9, LASTHF+12
IO	DONE+1, HEADER+2
IO("S"	EOP+2
IO(0	DONE+1, HEADER+2
IOF	EP+2, DONE+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT+5
IOST	DONE+1, HEADER+2, EOP+1
>> IOT	EOP+2
O	LASTHF+6~!
O(	LASTHF+12*, LASTHF+16, LASTHF+17, LASTHF+18
O(0	LASTHF+14
P	SORT~, SORT+2, SORT+3, SORT+4, LASTHF~, LASTHF+1, LASTHF+8, LASTHF+9, LASTHF+12
U	PROC+7, PROC+8, SORT+3, PRINT+7, PRINT+17, HEADER1+2, HEADER1+3, USR+1, LOC+1, LASTHF+17
X	PROC+17, SORT+1~, SORT+2, SORT+3, SORT+4, SORT+5, SORT+6, PRINT+11, PRINT+12, PRINT+13* , PRINT+14, PRINT1, HEADER1+7, 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, REGISTER+9, REGISTER+13, REPORT+4, ENDDATE+5, SORTED+3, HEADER+2, CTR~, CTR+1
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDMSM

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: