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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APCDDVL3

Package: Patient Care Component

Routine: APCDDVL3


Information

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

Source Information

Source file <APCDDVL3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  ($$VAL,$$VALI)^XBDIQ1  EN^XBVK  
Patient Care Component Reports 2 ($$DEMO,DEMOCHK)^APCLUTL  ($$CLINIC,$$PRIMPOV,$$PRIMPROV)^APCLV  
VA Fileman 2 DD^%DT  ^DIR  
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
DTC(V) ;any v tran code with an ordering provider? 1 or 0
DEMO ;
DE ;EP;FIND DEP ENTRIES
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 ;
EOJ ;
SORT ;
ZIS ;call to XBDBQUE
ED ;get ending date
START ;
PROCESS ;EP - called from XBDBQUE
DE2 ;
INTRO ;;

External References

Name Field # of Occurrence
DD^%DT ED+1
$$DEMO^APCLUTL PROCESS+8
DEMOCHK^APCLUTL DEMO+1
$$CLINIC^APCLV GETSORT+2, PRINT+9, PRINT+29
$$PRIMPOV^APCLV PRINT+29
$$PRIMPROV^APCLV PRINT+29
$$HRN^AUPNPAT GETSORT+4, PRINT+9
^DIR BD+1, ED+1, SORT+2, DONE+2, HDR+2
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PRINT+29, DE2+2
$$VALI^XBDIQ1 DE2+2
EN^XBVK EOJ+1
$$FMADD^XLFDT PROCESS+1
$$FMTE^XLFDT PRINT+9, PRINT+17, PRINT+29, HDR1+2

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: !!,"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),"5"),?38,$P(APCDVR,U,7),?40,$$CLINIC^APCLV(APCDV,"C")
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?43,$P(APCDX(APCDY),U),?54,$E($P(APCDX(APCDY),U,2),1,15),?70,$$FMTE^XLFDT($P(APCDX(APCDY),U,3),"5")
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?3,"Order date vsts: "
  • Condition for execution: C=1
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?21,$$FMTE^XLFDT($P(^AUPNVSIT(APCDX,0),U),"5"),?38,$P(^AUPNVSIT(APCDX,0),U,7),?39,$$CLINIC^APCLV(APCDX,"C"),?42,$E($$VAL^XBDIQ1(9000010,APCDX,.22),1,15),?58,$E($$PRIMPROV^APCLV(APCDX,"N"),1,15),?74,$$PRIMPOV^APCLV(APCDX,"C")
  • Line Location: PRINT+29
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("12:00 Visits with No Billing Link"),!
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !?3,"PATIENT NAME",?17,"HRN",?22,"VISIT DATE",?37,"SC",?40,"CL",?43,"V FILE'S",?54,"ORDER PROV",?70,"ORDER DATE"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: $TR($J(" ",80)," ","-"),!
  • Line Location: HDR1+6
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
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • SORT+2
    • DONE+2
    • HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+12, GETSORT+1, GETSORT+4, PRINT+6, PRINT+19, PRINT+24
, PRINT+29, DTC+2
^AUPNVSIT("AA" PRINT+23, PRINT+24
^AUPNVSIT("B" PROCESS+4, PROCESS+6
^AUPNVTC - [#9000010.33] DTC+5
^AUPNVTC("AD" DTC+3, DTC+5
^DIC - [#1] DE+2, DE2+1, DE2+2
^DIC(4 - [#4] LOC+1
^DPT - [#2] PRINT+9
^VA(200 - [#200] HDR1+2, USR+1
^XTMP("APCDDVL3" PROCESS+1*, PROCESS+14*, PRINT+2, PRINT+3, PRINT+4, DONE+1!

Label References

Name Line Occurrences
$$CTR HDR1+2, HDR1+3, HDR1+4, INFORM+2, INFORM+3
$$LOC HDR1+3, INFORM+2
$$USR INFORM+3
BD ED+2, DEMO+2
DE PRINT+11
DE2 DE+2
DONE PRINT+2
ED SORT+3
EOJ START+1, BD+2, ZIS+3
GETSORT PROCESS+13
HDR PRINT+1, PRINT+2, PRINT+5, PRINT+13, PRINT+25
HDR1 HDR+1
INFORM START+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
>> APCDBD BD+3*, ED+1, PROCESS+3
APCDBT PROCESS+2*, PROCESS+14, PRINT+2, PRINT+3, PRINT+4, DONE+1!
>> APCDC DE+1*, DE2+2*
>> APCDCSRT SORT+1*, SORT+4*, GETSORT+1, GETSORT+2, GETSORT+5
APCDD PRINT+11!, DE+1!
>> APCDDATE PRINT+22*, PRINT+23*, PRINT+24
>> APCDDEMO DEMO+1, DEMO+2, PROCESS+8
>> APCDED ED+3*, PROCESS+3
>> APCDEND PROCESS+3*, PROCESS+4
APCDJ PROCESS+2*, PROCESS+14, PRINT+2, PRINT+3, PRINT+4, DONE+1!
>> APCDORDT PRINT+20*, PRINT+21, PRINT+22
>> APCDP PRINT+19*, PRINT+23, PRINT+24
>> APCDPG PRINT+1*, HDR+1, HDR1+1*, HDR1+2
>> APCDQUIT PRINT+1*, PRINT+3, PRINT+4, PRINT+5, PRINT+12, PRINT+13, PRINT+23, PRINT+24, PRINT+25, HDR+2*
>> APCDSORT PROCESS+13*, PROCESS+14, GETSORT+1*, GETSORT+2*, GETSORT+4*, GETSORT+6*, PRINT+3*, PRINT+4
>> APCDT PROCESS+3*, PROCESS+4*, PROCESS+6
>> APCDV PROCESS+5*, PROCESS+6*, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+12, PROCESS+14, GETSORT+1, GETSORT+2
, GETSORT+4, PRINT+4*, PRINT+6, PRINT+9, PRINT+19, PRINT+24
>> APCDVDFN DE2+2*
>> APCDVDG DE2+1*
>> APCDVFLE DE+2*, DE2+1, DE2+2
>> APCDVIGR DE2+1*, DE2+2
>> APCDVR PRINT+6*, PRINT+9
APCDX PRINT+11!, PRINT+24*, PRINT+29, DE+1!
APCDX( PRINT+12, PRINT+17, PRINT+20, DE2+2*
>> APCDY PRINT+12*, PRINT+14, PRINT+17, PRINT+20*
C PRINT+22*, PRINT+24*, PRINT+26, DTC+4~, DTC+5*, DTC+6
DIR BD+1!, ED+1!, SORT+2!, DONE+2!, HDR+2!
DIR("A" BD+1*, ED+1*, SORT+2*, DONE+2*
DIR("B" SORT+2*
DIR(0 BD+1*, ED+1*, SORT+2*, DONE+2*, HDR+2*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, SORT+2*, SORT+3, DONE+2*
DT PROCESS+1, HDR1+2
>> DTOUT HDR+2
>> DUOUT BD+1, ED+1, SORT+2, DONE+2
DUZ HDR1+2, USR+1
DUZ(2 PROCESS+10, GETSORT+4, PRINT+9, LOC+1
>> END PRINT+22*, PRINT+23
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+5, PRINT+13, PRINT+25
IOST DONE+2, HDR+2
U PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+12, GETSORT+1, GETSORT+4, PRINT+9, PRINT+17, PRINT+19
, PRINT+20, PRINT+24, PRINT+29, DTC+5, DE2+2, HDR1+2, USR+1, LOC+1
V DTC~, DTC+1, DTC+2, DTC+3, DTC+5
X DTC+5*, 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, SORT+4, DE2+2*, 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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All