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 |  Marked Items |  All
Print Page as PDF
Routine: APCDDVL1

Package: Patient Care Component

Routine: APCDDVL1


Information

APCDDVL1 ; IHS/CMI/LAB - report on checked in visits with no pov ;

Source Information

Source file <APCDDVL1.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
HDR ;header for report
EOJ ;
USR() ;EP - Return name of current user from ^VA(200.
DONE ;
PRINT ;EP - called from XBDBQUE
GETSORT ;get sort value
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HDR1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
INFORM ;let user know what is gong on
GETDATES ;
DEMO ;
SORT ;
ZIS ;call to XBDBQUE
ED ;get ending date
START ;
WHICH ;
HLOC ;
VCNT(V) ;return number of other visits on this date
PROCESS ;EP - called from XBDBQUE
INTRO ;;

External References

Name Field # of Occurrence
DD^%DT ED+1
$$DEMO^APCLUTL PROCESS+12
DEMOCHK^APCLUTL DEMO+1
$$CLINIC^APCLV GETSORT+1, GETSORT+2, PRINT+8
$$PRIMPROV^APCLV PRINT+9
$$HRN^AUPNPAT GETSORT+4, PRINT+8
^DIC HLOC+1
^DIR BD+1, ED+1, WHICH+4, SORT+3, DONE+2, HDR+2
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PROCESS+11, PRINT+9
EN^XBVK EOJ+1
$$FMADD^XLFDT PROCESS+1
$$FMTE^XLFDT PRINT+8, HDR1+2, HDR1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"*** NOTE: If you pick Visit date order the report will be sorted by Visit date",!,"and sub-sorted by clinic code. All others will be sub-sorted by visit date."
  • Line Location: SORT+2
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$E($P(^DPT($P(APCDVR,U,5),0),U),1,15),?16,$$HRN^AUPNPAT($P(APCDVR,U,5),DUZ(2)),?23,$$FMTE^XLFDT($P(APCDVR,U)),?42,$P(APCDVR,U,7),?45,$$CLINIC^APCLV(APCDV,"C")
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?48,$E($$VAL^XBDIQ1(9000010,APCDV,.22),1,15),?64,$$PRIMPROV^APCLV(APCDV,"P")
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?72,$P(C,U)," ",$P(C,U,2)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,"Total Number of Visits: ",APCDTOT
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $P(^VA(200,DUZ,0),U,2),$$CTR($$FMTE^XLFDT(DT)),?71,"Page ",APCDPG,!
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: $$CTR($$LOC),!
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: $$CTR("CHECKED IN VISITS WITH NO POV (NOT YET CODED)"),!
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: $$CTR(%),!
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: "** Last column is the number of other visits on the same day and the",!," # of those visits that are complete",!!
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: ?3,"PATIENT NAME",?17," HRN",?23,"VISIT DATE&TIME",?42,"SC",?45,"CL",?48,"HOSPITAL LOC",?64,"PROV",?72,"# visits",!
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: $TR($J(" ",80)," ","-"),!
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !!,$$CTR($$LOC,80)
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,$$CTR($$USR,80),!!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: INFORM+4
Routine Call
  • DIC
  • Line Location:
    • HLOC+1
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • WHICH+4
    • SORT+3
    • DONE+2
    • HDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPOV("AD" PROCESS+14, VCNT+8
^AUPNVPRV("AD" VCNT+8
^AUPNVSIT - [#9000010] PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+16, GETSORT+1, GETSORT+2, GETSORT+4, PRINT+7, VCNT+2, VCNT+4
, VCNT+5, VCNT+8
^AUPNVSIT("AA" VCNT+7, VCNT+8
^AUPNVSIT("B" PROCESS+8, PROCESS+10
^DIC(4 - [#4] LOC+1
^DPT - [#2] PRINT+8
^VA(200 - [#200] HDR1+2, USR+1
^XTMP("APCDDVL1" PROCESS+1*, PROCESS+18*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, DONE+1!

Label References

Name Line Occurrences
$$CTR HDR1+2, HDR1+3, HDR1+4, HDR1+5, INFORM+2, INFORM+3
$$LOC HDR1+3, INFORM+2
$$USR INFORM+3
$$VCNT PRINT+10
BD ED+2, WHICH+5, SORT+4, DEMO+2
DONE PRINT+2, PRINT+14, PRINT+15
EOJ START+1, BD+2, ZIS+3
GETSORT PROCESS+17
HDR PRINT+1, PRINT+6, PRINT+15
HDR1 HDR+1
HLOC HLOC+5
INFORM START+2
SORT WHICH+6, HLOC+2, HLOC+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HDR1+5~*
>> APCDBD BD+3*, ED+1, PROCESS+7, HDR1+5
APCDBT PROCESS+2*, PROCESS+18, PRINT+2, PRINT+3, PRINT+4, PRINT+5, DONE+1!
>> APCDCSRT SORT+1*, SORT+5*, GETSORT+1, GETSORT+2, GETSORT+6
>> APCDDEMO DEMO+1, DEMO+2, PROCESS+12
>> APCDED ED+3*, PROCESS+7, HDR1+5
>> APCDEND PROCESS+7*, PROCESS+8
APCDHLOC WHICH+1!, WHICH+6!, HLOC+2, HLOC+3, PROCESS+16
APCDHLOC( HLOC+4*, PROCESS+16
APCDJ PROCESS+2*, PROCESS+18, PRINT+2, PRINT+3, PRINT+4, PRINT+5, DONE+1!
>> APCDPG PRINT+1*, HDR+1, HDR1+1*, HDR1+2
>> APCDQUIT PRINT+1*, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+14, PRINT+15, HDR+2*
>> APCDSORT PROCESS+17*, PROCESS+18, GETSORT+1*, GETSORT+2*, GETSORT+4*, GETSORT+5, GETSORT+7*, PRINT+3*, PRINT+4, PRINT+5
>> APCDSSRT PROCESS+18, GETSORT+1*, GETSORT+2*, GETSORT+4*, PRINT+4*, PRINT+5
>> APCDT PROCESS+7*, PROCESS+8*, PROCESS+10
>> APCDTOT PROCESS+2*, PROCESS+18*, PRINT+16
>> APCDV PROCESS+9*, PROCESS+10*, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, GETSORT+1
, GETSORT+2, GETSORT+4, PRINT+5*, PRINT+7, PRINT+8, PRINT+9, PRINT+10
>> APCDVR PRINT+7*, PRINT+8
C PRINT+10*, VCNT+3~, VCNT+6*, VCNT+8*, VCNT+9
>> C1 VCNT+6*, VCNT+8*, VCNT+9
D VCNT+3~, VCNT+5*, VCNT+6
DA WHICH+4!
DATE VCNT+3~, VCNT+6*, VCNT+7*, VCNT+8
DIC HLOC+1*!
DIC("A" HLOC+1*
DIC(0 HLOC+1*
DIR BD+1!, ED+1!, WHICH+2!, WHICH+4!, SORT+3!, DONE+2!, HDR+2!
DIR("A" BD+1*, ED+1*, WHICH+4*, SORT+3*, DONE+2*
DIR("B" WHICH+4*, SORT+3*
DIR(0 BD+1*, ED+1*, WHICH+3*, SORT+3*, DONE+2*, HDR+2*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, WHICH+5, SORT+3*, SORT+4, DONE+2*
DT PROCESS+1, HDR1+2
>> DTOUT HDR+2
>> DUOUT BD+1, ED+1, SORT+3, DONE+2
DUZ HDR1+2, USR+1
DUZ(2 PROCESS+13, GETSORT+4, PRINT+8, LOC+1
END VCNT+3~, VCNT+6*, VCNT+7
I INFORM+4*, INFORM+5!
IO DONE+2, HDR+2
IO(0 DONE+2, HDR+2
IOF DONE+3, HDR1+1, INFORM+1
IOM CTR+1
IOSL PRINT+6, PRINT+15
IOST DONE+2, HDR+2
P VCNT+3~, VCNT+4*, VCNT+7, VCNT+8
U PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+16, GETSORT+1, GETSORT+2, GETSORT+4, PRINT+8, PRINT+10, VCNT+4
, VCNT+5, VCNT+8, VCNT+9, HDR1+2, USR+1, LOC+1
V VCNT~, VCNT+1, VCNT+2, VCNT+4, VCNT+5, VCNT+8
X HLOC+2, PROCESS+16*, VCNT+3~, VCNT+8*, CTR~, CTR+1, INFORM+4*, INFORM+5!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y BD+3, ED+1*, ED+3, WHICH+6, HLOC+3, HLOC+4, SORT+5, VCNT+3~, HDR+2, CTR~
, CTR+1

Marked Items

Name Field # of Occurrence
$T(INTRO+I INFORM+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 |  Marked Items |  All