Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLDR2

Package: Patient Care Component Reports

Routine: APCLDR2


Information

APCLDR2 ; IHS/CMI/LAB - patients w/o dm on problem list ;

Source Information

Source file <APCLDR2.m>

Call Graph

Call Graph Total: 18

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  
Patient Care Component Reports 4 $$DODX^APCLD206  $$START1^APCLDF  XTMP^APCLOSUT  ($$DEMO,DEMOCHK)^APCLUTL  
Kernel 2 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
IHS Patient 1 ($$DOB,$$DOD,$$HRN,KILL)^AUPNPAT  
Taxonomy 1 $$ICD^ATXAPI  

Entry Points

Name Comments DBIA/ICR reference
DMPROB(P) ;is DM on problem list 1=yes 0=no
REGPROC ;
DEMO ;
BDMG(APCLTR,APCLREG,APCLSTAT) ;EP - GUI DMS Entry Point
GUIEP ;EP
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
PRINT ;EP - called from xbdbque
PIH
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
NUMDXS(P) ;
INFORM ;
CHKSET ;
HEAD
ZIS ;call to XBDBQUE
ENDLOG ;-- write the end of the log
START ;
R ;
HEAD1 ;
GETINFO ;
BDMGO(APCLTR,APCLREG,APCLSTAT) ;EP - GUI DMS Entry Point
EXIT ;clean up and exit
LASTDMDX(P) ;
TEST ;
PROC ;EP - called from XBDBQUE

External References

Name Field # of Occurrence
NOW^%DTC BDMG+4, ENDLOG+1
^%ZTLOAD BDMG+18
$$DODX^APCLD206 CHKSET+2
$$START1^APCLDF LASTDMDX+4, NUMDXS+4
XTMP^APCLOSUT PROC+3
$$DEMO^APCLUTL CHKSET+1
DEMOCHK^APCLUTL DEMO+1
$$ICD^ATXAPI DMPROB+7
$$DOB^AUPNPAT PRINT+9
$$DOD^AUPNPAT CHKSET+3
$$HRN^AUPNPAT PRINT+9
KILL^AUPNPAT EXIT+3
^DIC R+2
FILE^DICN BDMG+10
^DIE ENDLOG+4
IX1^DIK GUIEP+10
^DIR R+7, R+11, DONE+1, HEAD+1, EOP+5
^XBDBQUE DEMO+4
^XBFMK EXIT+2, BDMG+15
GUIR^XBLM BDMGO+4, GUIEP+4
EN^XBVK EXIT+1
$$FMTE^XLFDT PRINT+9
$$NOW^XLFDT BDMG+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC)
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,$$CTR($$USR)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will list patients who are on the Diabetes Register who do not",!,"have a date of diagnosis recorded in either the Register or on the problem list.",!!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"No register selected."
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CTR("DIABETES REGISTER PATIENTS WITH NO RECORDED DATE OF ONSET OF DIABETES",80),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: $$CTR("Patients on the "_$P(^ACM(41.1,APCLREG,0),U)_" Register",80),!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: $$CTR("Patients w/at least "_APCLND_" diabetes diagnoses",80),!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?47,"LAST DM DX",?63,"#DM DXS",?71,"DM ON PL",!,APCL80D
  • Line Location: PIH+0
Routine Call
  • DIE
  • Line Location:
    • ENDLOG+4
Routine Call
  • DIC
  • Line Location:
    • R+2
Routine Call
  • DIR
  • Line Location:
    • R+7
    • R+11
    • DONE+1
    • HEAD+1
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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] REGPROC+4, REGPROC+5, REGPROC+6
^ACM(41.1 - [#9002241.1] HEAD1+7
^APCLGUIR - [#9001004.4] GUIEP+8*, GUIEP+9*
^ATXAX("B" DMPROB+3
^AUPNPAT - [#9000001] CHKSET+4, CHKSET+5
^AUPNPROB - [#9000011] DMPROB+6
^AUPNPROB("AC" DMPROB+2, DMPROB+5
^DIC(4 - [#4] HEAD1+5, LOC+1
^DPT - [#2] CHKSET+7, PRINT+9
^TMP($J GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200] HEAD1+4, USR+1
^XTMP("APCLDR2" PROC+2!, CHKSET+7*, PRINT+4, PRINT+6, PRINT+7, DONE+3!

Label References

Name Line Occurrences
$$CTR INFORM+2, INFORM+3, HEAD1+6, HEAD1+7, HEAD1+8
$$DMPROB CHKSET+6
$$LASTDMDX CHKSET+7
$$LOC INFORM+2
$$NUMDXS CHKSET+7
$$USR INFORM+3
BDMG TEST+1
CHKSET REGPROC+5, REGPROC+6
DONE PRINT+4
ENDLOG GUIEP+11
EXIT START+2, START+4, GETINFO+3, DEMO+5, BDMGO+5, BDMG+19, GUIEP+13
GETINFO START+3
HEAD PRINT+3, PRINT+8
HEAD1 HEAD
INFORM START+1
PROC BDMGO+3, GUIEP+1
R GETINFO+2, R+8, R+12, DEMO+2
REGPROC PROC+4
ZIS GETINFO+4

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+5, ENDLOG+2
APCL LASTDMDX+2~, NUMDXS+2~
APCL( NUMDXS+6
APCL(1 LASTDMDX+5
>> APCL80D PRINT+1*, PIH
APCLBTH PROC+1*, PROC+2, CHKSET+7, PRINT+4, PRINT+6, PRINT+7, DONE+3!
>> APCLDATA GUIEP+6*, GUIEP+7*, GUIEP+8
>> APCLDEMO DEMO+1, DEMO+2, CHKSET+1
>> APCLGUI PRINT+2, HEAD1+2, BDMGO+2*, BDMG+1*
APCLIEN BDMG+2~, BDMG+12*, BDMG+13*, BDMG+14, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> APCLIOSL PRINT+2*, PRINT+8
APCLJOB PROC+1*, PROC+2, CHKSET+7, PRINT+4, PRINT+6, PRINT+7, DONE+3!
>> APCLNAME PRINT+5*, PRINT+6*, PRINT+7, PRINT+9
>> APCLND GETINFO+1*, HEAD1+8
APCLNOW BDMG+2~, BDMG+5*, BDMG+7, BDMG+8, ENDLOG+2*, ENDLOG+3
APCLOPT BDMG+2~, BDMG+3*, BDMG+8
>> APCLPG PRINT+2*, HEAD, HEAD1+1*, HEAD1+2, HEAD1+4
>> APCLPLDX CHKSET+6*, CHKSET+7
APCLQ PRINT+5!, PRINT+6, PRINT+7, PRINT+8, HEAD+1*
>> APCLQUIT START+4, GETINFO+3, R+3*
APCLREG GETINFO+1*, R+1*, R+4*, REGPROC+4, CHKSET+2, HEAD1+7, BDMGO~, BDMG~
APCLSTAT GETINFO+1*, R+6*, R+9*, R+13*, REGPROC+5, REGPROC+6, BDMGO~, BDMG~
APCLTR GETINFO+1*, GETINFO+3*, PROC+4, HEAD1+7, HEAD1+8, BDMGO~, BDMG~, BDMG+1*
>> APCLX PRINT+7*, PRINT+9
>> BDMGIEN BDMG+14*
>> C GUIEP+5*, GUIEP+8*, GUIEP+9
D DMPROB+5~*
DA R+7!, R+11!, BDMG+11!, GUIEP+10*, ENDLOG+3*, ENDLOG+5!
DD BDMG+6!
>> DFN REGPROC+5*, REGPROC+6*, CHKSET+1, CHKSET+2, CHKSET+3, CHKSET+4, CHKSET+5, CHKSET+6, CHKSET+7, PRINT+7*
, PRINT+9
DFOUT EOP+4!
DIADD BDMG+9*, BDMG+11!
DIC R+2*, BDMG+6!, BDMG+9*, BDMG+11!
DIC("A" R+2*
DIC("DR" BDMG+8*
DIC(0 R+2*, BDMG+9*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+10*
DIR R+7!, R+11!, DONE+1!, HEAD+1!, EOP+3~
DIR("A" R+7*, R+11*, DONE+1*
DIR("B" R+7*, R+11*
DIR(0 R+7*, R+11*, DONE+1*, HEAD+1*, EOP+5*
DIRUT R+8, R+12, DONE+1*, EOP+4!
DLAYGO BDMG+9*, BDMG+11!
DLOUT EOP+4!
DO BDMG+6!
DR ENDLOG+3*, ENDLOG+5!
DT GUIEP+9
DTOUT HEAD+1, EOP+4!
DUOUT DONE+1, EOP+4!
DUZ HEAD1+4, USR+1, BDMG+7, BDMG+8
DUZ(2 CHKSET+4, CHKSET+5, PRINT+9, HEAD1+5, LOC+1
E LASTDMDX+2~, LASTDMDX+4*, NUMDXS+2~, NUMDXS+4*
G DMPROB+5~*, DMPROB+7*, DMPROB+9
I DMPROB+5~, DMPROB+6*, DMPROB+7
IO DONE+1, HEAD+1
IO("S" EOP+2
IO(0 DONE+1, HEAD+1
IOF INFORM+1, DONE+2, HEAD1+1
IOM CTR+1, GUIEP+3*
IOSL PRINT+2
IOST DONE+1, HEAD+1, EOP+1
>> IOT EOP+2
P LASTDMDX~, LASTDMDX+1, LASTDMDX+4, NUMDXS~, NUMDXS+1, NUMDXS+4, DMPROB~, DMPROB+1, DMPROB+2, DMPROB+5
T DMPROB+3~*, DMPROB+4, DMPROB+7
U LASTDMDX+5, REGPROC+5, REGPROC+6, CHKSET+4, CHKSET+5, CHKSET+7, DMPROB+6, PRINT+9, HEAD1+4, HEAD1+5
, HEAD1+7, USR+1, LOC+1
X LASTDMDX+2~, LASTDMDX+4*, NUMDXS+2~, NUMDXS+4*, NUMDXS+5*, NUMDXS+6*, REGPROC+4*, REGPROC+5, REGPROC+6, CTR~
, CTR+1, BDMG+7*, GUIEP+5*, GUIEP+6, GUIEP+8
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y R+3, R+4, R+9, R+13, LASTDMDX+2~, LASTDMDX+3*, LASTDMDX+4, NUMDXS+2~, NUMDXS+3*, NUMDXS+4
, NUMDXS+5*, NUMDXS+6*, NUMDXS+7, DMPROB+5~*, DMPROB+6, HEAD+1, CTR~, CTR+1, BDMG+12, BDMG+13
>> ZTDESC BDMG+18*
>> ZTDTH BDMG+18*
>> ZTIO BDMG+18*
>> ZTQUEUED EOP+2
>> ZTREQ GUIEP+14*
>> ZTRTN BDMG+18*
ZTSAVE BDMG+16!
ZTSAVE("*" BDMG+16*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All