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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLPDEM

Package: Patient Care Component Reports

Routine: APCLPDEM


Information

APCLPDEM ; IHS/CMI/LAB - report of visits re-linked ;

Source Information

Source file <APCLPDEM.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
IHS VA Utilities 2 ^XBDBQUE  EN^XBVK  
Patient Care Component Reports 2 ($$DEMO,DEMOCHK)^APCLUTL  $$CLINIC^APCLV  
IHS Patient 1 ($$HRN,KILL)^AUPNPAT  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
ZIS ;
HEADER ;EP
BROWSE ;
DEMO ;
XTMP(N,D) ;EP - set xtmp 0 node
START ;EP - called from option
CTR(X,Y) ;EP - Center X in a field Y wide.
GETDATES ;
XIT ;
ED ;get ending date
PRINT ;EP - called from xbdbque
HEADER1 ;
PROC ;EP - called from xbdbque
DATE(D) ;EP

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4
C^%DTC ED+4, PROC+4
$$DEMO^APCLUTL PROC+9
DEMOCHK^APCLUTL DEMO+1
$$CLINIC^APCLV PRINT+7
$$HRN^AUPNPAT PRINT+7
KILL^AUPNPAT XIT+2
^DIR BD+1, ED+1, DEMO+3, HEADER+2
^XBDBQUE DEMO+7, BROWSE+2
EN^XBVK XIT+1
$$FMADD^XLFDT XTMP+2
$$FMTE^XLFDT PRINT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will print a list of all visits for your 'DEMO' patients."
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"The patient visits listed are those for patients whose name begins with"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"DEMO,PATIENT or who reside in your site defined DEMO patient search template."
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"You can use this list to delete the visits using the data entry delete"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"visit option."
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!,"Please enter the range of visit dates for the demo patients."
  • Line Location: GETDATES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEMO+6
Function Call: WRITE
  • Prompt: !!,"There are no Demo patient visits for that time period.",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Total # of Visits: ",APCLTOT,!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?($S(80=132:120,1:72)),"Page ",APCLPG,!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !?(80-$L(APCLTEXT)/2),APCLTEXT,!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: ?(80-$L(APCLTEXT)/2),APCLTEXT,!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: $TR($J(" ",80)," ","-")
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,"HRN",?7,"PATIENT",?32,"DATE/TIME (IEN)",?60,"TYPE",?65,"SC",?68,"CLINIC"
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEADER1+10
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • DEMO+3
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] PROC+7, PROC+8, PROC+9, PROC+10, PRINT+7
^AUPNVSIT("B" PROC+5, PROC+6
^DIC(4 - [#4] HEADER1+3
^DPT - [#2] PRINT+7
^XTMP( XTMP+2*
^XTMP("APCLPDEM" PROC+10*, PRINT+2, PRINT+4, PRINT+5, PRINT+9!

Label References

Name Line Occurrences
BD ED+2
BROWSE DEMO+5
GETDATES DEMO+2
HEADER PRINT+2, PRINT+3, PRINT+6
HEADER1 HEADER+1
XIT START+1, BD+2, DEMO+4, DEMO+5, DEMO+8
XTMP PROC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLBD BD+3*, ED+1, ED+4, PROC+4
>> APCLBDD ED+4*, HEADER1+6
>> APCLBT PROC+2*, PROC+10, PRINT+2, PRINT+4, PRINT+5, PRINT+9
>> APCLDEMO DEMO+1, DEMO+2, PROC+9
>> APCLED ED+3*, ED+4, PROC+5
>> APCLEDD ED+4*, HEADER1+6
>> APCLJOB PROC+2*, PROC+10, PRINT+2, PRINT+4, PRINT+5, PRINT+9
>> APCLODAT PROC+5*, PROC+6
>> APCLP PRINT+4*, PRINT+5, PRINT+7
>> APCLPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+3
APCLQ PRINT+1!, PRINT+4, PRINT+5, PRINT+6, HEADER+2*
>> APCLSD ED+4*, PROC+4*, PROC+5
>> APCLTEXT HEADER1+4*, HEADER1+5, HEADER1+6*, HEADER1+7
>> APCLTOT PROC+2*, PROC+10*, PRINT+8
>> APCLV PROC+6*, PROC+7, PROC+8, PROC+9, PROC+10, PRINT+5*, PRINT+7
D DATE~, DATE+1, DATE+2, XTMP~, XTMP+2
DA DEMO+3!
DIR BD+1!, ED+1!, DEMO+3!, HEADER+2!
DIR("A" BD+1*, ED+1*, DEMO+3*
DIR("B" DEMO+3*
DIR(0 BD+1*, ED+1*, DEMO+3*, HEADER+2*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, DEMO+4
DT XTMP+2
>> DTOUT HEADER+2
>> DUOUT BD+1, ED+1
DUZ(2 PRINT+7, HEADER1+3
IO HEADER+2
IO(0 HEADER+2
IOF START+2, HEADER1+1
IOM CTR+1
IOSL PRINT+6
IOST HEADER+2
N XTMP~, XTMP+1, XTMP+2
U PROC+7, PROC+8, PROC+9, PROC+10, PRINT+7, HEADER1+3
X ED+4, PROC+4, CTR~, CTR+1
>> X1 ED+4*, PROC+4*
>> X2 ED+4*, PROC+4*
>> XBIOP BROWSE+2*
>> XBNS DEMO+6*, BROWSE+2*
>> XBRC DEMO+6*, BROWSE+2*
>> XBRP DEMO+6*, BROWSE+1*
>> XBRX DEMO+6*, BROWSE+2*
Y BD+3, ED+1*, ED+3, ED+4*, DEMO+5, CTR~, CTR+1, HEADER+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All