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: APCLM2

Package: Patient Care Component Reports

Routine: APCLM2


Information

APCLM2 ; IHS/CMI/LAB - ADULT IMMUNIZATION NEEDS ;

Source Information

Source file <APCLM2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 3 ^%DTC  ^DIC  ^DIR  
IHS VA Utilities 2 ^XBDBQUE  $$VAL^XBDIQ1  
Patient Care Component Reports 2 (DONE,XTMP)^APCLOSUT  ($$DEMO,DEMOCHK)^APCLUTL  
IHS Patient 1 ($$AGE,$$COMMRES,$$DOB,$$HRN,KILL)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
HEAD
PROC1 ;
ZIS ;call to XBDBQUE
HEAD1 ;
DEMO ;
AGE ;
PRN ;EP
GETIMM ;
START ;
DONE ;
XIT ;
PRINT ;
COMM ;
RAGE(D) ;printable age
PROC ;
SBW ;

External References

Name Field # of Occurrence
^%DTC RAGE+3
PEP^AMQQGTX0 COMM+10
DONE^APCLOSUT DONE+1
XTMP^APCLOSUT PROC+2
$$DEMO^APCLUTL PROC1+2
DEMOCHK^APCLUTL DEMO+1
$$AGE^AUPNPAT PROC1+7
$$COMMRES^AUPNPAT PROC1+5, PROC1+6, PROC1+10
$$DOB^AUPNPAT PRINT1+2
$$HRN^AUPNPAT PRINT1+2
KILL^AUPNPAT XIT+3
^DIC COMM+6, COMM+9
^DIR AGE+3, COMM+2, HEAD+1
^XBDBQUE DEMO+4
$$VAL^XBDIQ1 PRINT1+2
$$FMTE^XLFDT SBW+2, HEAD1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?12,"********** CHILDREN NOT ON IMMUNIZATION REGISTER **********"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"This report will list all children in an age range that you select, who are not",!,"on the immunization register. You will be asked to specify an age range",!,"and the community or communities that you are interested in.",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: AGE+1
Function Call: WRITE
  • Prompt: !!,"No age range entered. All ages will be included."
  • Line Location: AGE+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter an age range in the format nnn-nnn. E.g. 2-5, 12-74, 5-20."
  • Line Location: AGE+6
Function Call: WRITE
  • Prompt: !!,"Kids from all communities will be included in the report.",!
  • Line Location: COMM+4
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: COMM+9
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT",!
  • Line Location: PRN+2
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?23,"(",$$HRN^AUPNPAT(DFN,DUZ(2)),")",?34,$$DOB^AUPNPAT(DFN,"E"),?50,$$RAGE($P(^DPT(DFN,0),U,3)),?66,$$VAL^XBDIQ1(2,DFN,.02),!
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !?12,"No prior immunizations listed",!
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !,?16,$$FMTE^XLFDT(D),?30
  • Line Location: SBW+2
Function Call: WRITE
  • Prompt: S," "
  • Condition for execution: S
  • Line Location: SBW+5
Function Call: WRITE
  • Prompt: V
  • Line Location: SBW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?5,"WARNING: CONFIDENTIAL PATIENT INFORMATION, PRIVACY ACT APPLIES",!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !?12,"******** CHILDREN NOT ON IMMUNIZATION REGISTER ********",!!
  • Line Location: HEAD1+4
Routine Call
  • DIC
  • Line Location:
    • COMM+6
    • COMM+9
Routine Call
  • DIR
  • Line Location:
    • AGE+3
    • COMM+2
    • HEAD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMQQ(5 - [#9009075] Classic Fileman Calls
^AUTTCOM - [#9999999.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMCH(85 - [#9002085] PROC1+3
^AUPNVIMM - [#9000010.11] GETIMM+3, GETIMM+4
^AUPNVIMM("AC" GETIMM+2
^AUPNVSIT - [#9000010] GETIMM+6
^AUTTCOM - [#9999999.05] COMM+8
^AUTTIMM - [#9999999.14] SBW+5
^AUTTIMM(0 PROC1+3, PROC1+4
^BIP("B" PROC1+4
^DIC(4 - [#4] HEAD1+3
^DPT - [#2] PROC+3, PROC1+1, PROC1+10, PRINT1+2
^XTMP("APCLM2" PROC1+10*, PRN+2, PRINT+1, PRINT+4, PRINT+5

Label References

Name Line Occurrences
$$RAGE PRINT1+2
AGE AGE+6, COMM+3
COMM AGE+5, COMM+5, COMM+11, DEMO+2
DONE PRN+2
GETIMM PRINT1+3
HEAD PRN+2, PRN+3, PRINT+2, PRINT1+1, SBW+1
HEAD1 HEAD
PRINT PRN+5
PRINT1 PRINT+5
PROC1 PROC+3
SBW PRINT1+5
XIT AGE+4, COMM+9, DEMO+5
ZIS COMM+4, COMM+5

Naked Globals

Name Field # of Occurrence
^(0 SBW+5, GETIMM+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+4!, RAGE+1~, RAGE+4*, RAGE+5
A XIT+2!, GETIMM+1!
APCLAGE XIT+1!, PROC1+7*, PROC1+8, PROC1+9
APCLAGER AGE+2!, AGE+7*, XIT+1!, PROC1+8, PROC1+9
APCLBT XIT+1!, PROC+1*, PROC1+10, PRN+2, PRINT+1, PRINT+4, PRINT+5
APCLCNT XIT+1!, PROC+1*, PROC1+11*
APCLCOM XIT+1!, PRINT+1*, PRINT+3, PRINT+4, PRINT+5
APCLCOMM COMM+1!, COMM+5, COMM+11, COMM+12!, XIT+1!, PROC1+5, PROC1+6, PRN+3
APCLCOMM( COMM+8*, PROC1+6
APCLCOMM("*" COMM+12
>> APCLDEMO DEMO+1, DEMO+2, PROC1+2
APCLET XIT+1!, PROC+4*
APCLJOB XIT+1!, PROC+1*, PROC1+10, PRN+2, PRINT+1, PRINT+4, PRINT+5
APCLNAME XIT+1!, PRINT+4*, PRINT+5
APCLPG XIT+1!, PRN+1*, HEAD, HEAD1+1*, HEAD1+3
APCLQUIT XIT+1!, PRN+4!, PRINT+1, PRINT+2, PRINT+4, PRINT+5, PRINT1+1, PRINT1+5, SBW+1, HEAD+1*
B XIT+2!, GETIMM+1!
B( PRINT1+5, SBW+3, SBW+4, GETIMM+7*
C XIT+2!, PRINT1+4, SBW+3*, SBW+4, GETIMM+1*, GETIMM+7*
D XIT+2!, PRINT1+5*, SBW+2, SBW+3, SBW+4, GETIMM+1~, GETIMM+5*, GETIMM+6*, GETIMM+7, RAGE~
, RAGE+2
DA COMM+2!, COMM+9!, XIT+2!
DFN XIT+2!, PROC+3*, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+7, PROC1+10
, PRINT+5*, PRINT1+2, GETIMM+2
DIC COMM+6*!, COMM+9*!, XIT+2!
DIC("A" COMM+6*
DIC("S" COMM+9*
DIC(0 COMM+6*, COMM+9*
DIR AGE+3!, COMM+2!, XIT+2!, HEAD+1!
DIR("A" AGE+3*, COMM+2*
DIR("B" COMM+2*
DIR(0 AGE+3*, COMM+2*, HEAD+1*
DIRUT AGE+3*, COMM+3, XIT+2!, XIT+4!
DT PROC1+7, RAGE+2, HEAD1+3
DTOUT XIT+2!, HEAD+1
DUOUT AGE+3, AGE+4, XIT+2!
DUZ(2 PRINT1+2, HEAD1+3
H XIT+2!, XIT+4!
I XIT+2!, GETIMM+1*, GETIMM+2*, GETIMM+3, GETIMM+4
IO HEAD+1
IO("Q" XIT+4!
IO(0 HEAD+1
IOF START+1, HEAD1+1
IOSL PRINT+2, PRINT1+1, SBW+1
IOST HEAD+1
K XIT+2!, GETIMM+1~, GETIMM+5*, GETIMM+6
M XIT+2!, XIT+4!
N XIT+2!, SBW+3*, SBW+4*
POP XIT+4!
S XIT+2!, XIT+4!, SBW+4*, SBW+5, GETIMM+1~, GETIMM+5*, GETIMM+7
TS XIT+2!, XIT+4!
U COMM+8, PROC1+1, PROC1+10, PRINT1+2, SBW+4, SBW+5, GETIMM+4, GETIMM+5, GETIMM+7, HEAD1+3
V XIT+2!, SBW+4*, SBW+5*, GETIMM+1~, GETIMM+4*, GETIMM+7
X COMM+9*, XIT+2!, XIT+4!, GETIMM+1~, GETIMM+4*, GETIMM+5, RAGE+1~, RAGE+4
X1 XIT+2!, XIT+4!, RAGE+1~, RAGE+2*
X2 XIT+2!, XIT+4!, RAGE+1~, RAGE+2*
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y AGE+5, AGE+6, AGE+7, COMM+4, COMM+5, COMM+7, COMM+8, COMM+9, COMM+10, XIT+2!
, XIT+4!, HEAD+1
ZTQUEUED XIT+4!
ZTSK XIT+4!
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