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

Package: Patient Care Component Reports

Routine: APCLREF1


Information

APCLREF1 ; IHS/CMI/LAB - list refusals ;

Source Information

Source file <APCLREF1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
Patient Care Component Reports 2 XTMP^APCLOSUT  ($$DEMO,DEMOCHK)^APCLUTL  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
EOP ;EP - End of page.
DATES
ZIS ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEADER ;EP
TYPE ;type of refusal all or one?
USR() ;EP - Return name of current user from ^VA(200.
CTR(X,Y) ;EP - Center X in a field Y wide.
INFORM ;
PROC ;
HEADER1 ;
EOJ ;
DEMO ;
PRINT ;EP - called from xbdbque
DONE ;
TYPE1 ;which refusal type?
ID ;

External References

Name Field # of Occurrence
XTMP^APCLOSUT PROC+5
$$DEMO^APCLUTL PROC+7
DEMOCHK^APCLUTL DEMO+1
$$DOB^AUPNPAT PRINT+13
$$HRN^AUPNPAT PRINT+13
^DIC TYPE1+2, ID+9
^DIR TYPE+2, ID+3, DATES+2, DATES+4, HEADER+2, EOP+7
^XBDBQUE DEMO+4
$$VAL^XBDIQ1 PROC+14, PRINT+14, PRINT+15
^XBFMK EOJ+2
EN^XBVK EOJ+1
$$FMTE^XLFDT HEADER1+2, HEADER1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$USR)
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !,$$LOC()
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,$$CTR("LISTING OF PATIENT SERVICES NOT DONE",80)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will list all services not done (refusals) documented for patients.",!,"You will be given the opportunity to specify which reasons not done (type of refusals)",!,"and the date range of the services not done.",!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !!,"No data to report.",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?42,$$VAL^XBDIQ1(9000022,APCLR,.03),?55,$E(APCLT1,1,15),?71,$E($$VAL^XBDIQ1(9000022,APCLR,.07),1,7)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?42,$$VAL^XBDIQ1(9002084.11,APCLR,.04),?55,$E(APCLT1,1,15),?71,$E($$VAL^XBDIQ1(9002084.11,APCLR,.03),1,7)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR("*** PATIENT REFUSAL/DECLINED SERVICE LISTING ***",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR(APCLONEP_" refusals",80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?42,"DATE",?55,"ITEM",?71,"REASON"
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • DIC
  • Line Location:
    • TYPE1+2
    • ID+9
Routine Call
  • DIR
  • Line Location:
    • TYPE+2
    • ID+3
    • DATES+2
    • DATES+4
    • HEADER+2
    • EOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTREFT - [#9999999.73] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPREF - [#9000022] PROC+6, PROC+7, PROC+8, PROC+11, PROC+12, PROC+14, PRINT+11
^AUTTREFT - [#9999999.73] ID+2, ID+3, ID+9, PRINT+5, HEADER1+4
^AUTTREFT("B" PROC+1
^BICONT - [#9002084.81] PROC+20, PROC+21
^BIPC - [#9002084.11] PROC+17, PROC+18, PROC+22, PROC+24, PROC+25, PROC+26, PROC+28, PRINT+12
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC+29
^VA(200 - [#200] HEADER1+2, USR+1
^XTMP("APCLREF1" PROC+4!, PROC+14*, PROC+29*, PRINT+2, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+10, DONE+1!

Label References

Name Line Occurrences
$$CTR INFORM+1, INFORM+3, HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$LOC INFORM+2
$$USR INFORM+1
DATES TYPE+5, ID+6, DATES+6, DEMO+2
DONE PRINT+2, PRINT+16
EOJ TYPE+3, DEMO+5
EOP DONE+2
HEADER PRINT+2, PRINT+4, PRINT+9
HEADER1 HEADER+1
TYPE TYPE1+3, ID+4, ID+10

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCLBD DATES!, DATES+2*, DATES+6, PROC+9, PROC+24, HEADER1+6
>> APCLCNT PROC+2*, PROC+13*
>> APCLD PROC+8*, PROC+9, PROC+10
>> APCLDEMO DEMO+1, DEMO+2, PROC+7
APCLED DATES!, DATES+4*, DATES+6, PROC+10, PROC+25, HEADER1+6
>> APCLH PROC+3*, PROC+4, PROC+14, PROC+29, PRINT+2, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+10
, DONE+1
>> APCLID ID+1*, ID+5*, ID+6
>> APCLIMM PROC+1*, PROC+16, PROC+29
>> APCLJ PROC+3*, PROC+4, PROC+14, PROC+29, PRINT+2, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+10
, DONE+1
>> APCLNAME PRINT+7*, PRINT+8, PRINT+10, PRINT+13
>> APCLONE ID+1*, ID+8*, ID+11*, PROC+12, PROC+27, HEADER1+5
>> APCLONEP ID+8*, ID+11*, HEADER1+5
>> APCLPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
APCLQUIT PRINT+1!, PRINT+3, PRINT+4, PRINT+6, PRINT+7, PRINT+9, HEADER+2*
>> APCLR PRINT+8*, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+15
>> APCLT PRINT+3*, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10
>> APCLT1 PRINT+6*, PRINT+7, PRINT+8, PRINT+10, PRINT+14, PRINT+15
>> APCLTYP1 TYPE1+1*, TYPE1+4*, ID+2, ID+3, ID+9, PROC+11, PROC+16, HEADER1+4
>> APCLTYPE TYPE+1*, TYPE+4*, TYPE+5, PROC+11, HEADER1+4
>> APCLX PROC+6*, PROC+7, PROC+8, PROC+11, PROC+12, PROC+14, PROC+17*, PROC+18, PROC+22, PROC+24
, PROC+25, PROC+26, PROC+28, PROC+29
>> APCLY PRINT+10*, PRINT+11, PRINT+12, PRINT+14, PRINT+15
>> D PROC+22*, PROC+23
DA TYPE+2!, ID+3!
>> DFN PRINT+11*, PRINT+12*, PRINT+13
DFOUT EOP+5!
DIC TYPE1+2!*, ID+9!*
DIC("A" TYPE1+2*
DIC(0 TYPE1+2*, ID+9*
DIR TYPE+2!, ID+3!, DATES+1!, DATES+3!, HEADER+2!, EOP+4~
DIR("A" TYPE+2*, ID+3*, DATES+1*, DATES+3*, EOP+7*
DIR("B" TYPE+2*, ID+3*
DIR(0 TYPE+2*, ID+2*, DATES+1*, DATES+3*, HEADER+2*, EOP+7*
DIRUT TYPE+3, ID+4, EOP+5!
DLOUT EOP+5!
DT HEADER1+2
DTOUT HEADER+2, EOP+5!
DUOUT EOP+5!
DUZ HEADER1+2, USR+1
DUZ(2 PRINT+13, LOC+1
>> I PROC+26*, PROC+27, PROC+29
IO HEADER+2, EOP+2
IO("S" EOP+3
IO(0 HEADER+2, EOP+2
IOF HEADER1+1
IOM CTR+1
IOSL PRINT+9
IOST HEADER+2, EOP+1
>> IOT EOP+3
>> P PROC+28*, PROC+29
>> R PROC+18*, PROC+19, PROC+20, PROC+21
U ID+2, ID+3, ID+9, ID+11, PROC+7, PROC+8, PROC+11, PROC+12, PROC+14, PROC+18
, PROC+21, PROC+22, PROC+24, PROC+25, PROC+26, PROC+28, PROC+29, PRINT+5, PRINT+11, PRINT+12
, HEADER1+2, HEADER1+4, USR+1, LOC+1
X HEADER1+4*, HEADER1+6*, CTR~, CTR+1
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y TYPE+4, TYPE1+3, TYPE1+4, ID+5, ID+10, ID+11, DATES+2, DATES+4, HEADER+2, CTR~
, CTR+1
>> ZTQUEUED EOP+3
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