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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCDFOAP

Package: Patient Care Component

Routine: APCDFOAP


Information

APCDFOAP ; IHS/CMI/LAB - PRINT DE QA ;

Source Information

Source file <APCDFOAP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
DRG Grouper 1 $$ICDOP^ICDEX  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Patient Care Component Reports 1 $$VD^APCLV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDFOA  

Entry Points

Name Comments DBIA/ICR reference
HEAD
HEAD1 ;
POV ;
POVW ;
START ;
WRT ;
DONE ;
POV1 ;

External References

Name Field # of Occurrence
DD^%DT START+2, WRT+2
$$VD^APCLV WRT+8
^DIR DONE+1, HEAD+1
$$ICDOP^ICDEX WRT+6, WRT+8, POVW+2, POVW+3
$$VAL^XBDIQ1 WRT+6, POVW+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Visits to report!",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"No visits to report",!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: ?30,$P(^ICD0(+^AUPNVPRC(APCDPOVD,0),0),U)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !!,APCDHRN,?8,APCDDATE
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?27,$P($$ICDOP^ICDEX(+^AUPNVPRC(APCDPOVD,0),,,"I"),U,2),?36,$$VAL^XBDIQ1(9000010.08,APCDPOVD,.22)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !?27,$P($$ICDOP^ICDEX(+^AUPNVPRC(APCDPOVD,0),,,"I"),U,2),?36,$$VAL^XBDIQ1(9000010.08,APCDPOVD,.22)
  • Line Location: POVW+2
Function Call: WRITE
  • Prompt: ?43,$E($P(^AUTNPOV(APCDNQ,0),U),1,33)
  • Condition for execution: APCDNQ]""
  • Line Location: POVW+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?25,APCDLHDR,?72,"Page ",APCDPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !?15,"Visit POSTING Dates: "_APCDBDD_" and "_APCDEDD,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?(80-APCDLENG)/2,"Data Entry Operator: ",$P(^VA(200,APCDPROV,0),U),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?(80-APCDLENG)/2,"Clinic: ",$S(APCDCLN]"":$P(^DIC(40.7,APCDCLN,0),U),1:"ALL")
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !!,"Total Visits Found: ",APCDVCNT
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: " Total Number of Random Visits Selected: ",APCDMAX
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !!?27,"ICD O/P",?36,"ICD-9",?43,"Provider Narrative"
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !?2,"HR#",?9,"Visit Date",?27,"Code",?36,"Code",?43,"[ICD O/P NARRATIVE]"
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: !,APCD80D
  • Line Location: HEAD1+12
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] WRT+4
^AUPNVPRC - [#9000010.08] POV+1, POV1+2, WRT+6, WRT+8, POVW+2, POVW+3
^AUPNVPRC("AD" POV+1
^AUPNVSIT - [#9000010] START+9
^AUTNPOV - [#9999999.27] WRT+8, POVW+2
^DIC(4 - [#4] HEAD1+3
^DIC(40.7 - [#40.7] HEAD1+7, HEAD1+8
^VA(200 - [#200] HEAD1+5, HEAD1+6
^XTMP("APCDFOA" START+7, START+9, POV1+1, POV1+2

Label References

Name Line Occurrences
DONE START+5, START+7, START+10, START+11
HEAD START+5, START+7, START+11, WRT+1
HEAD1 HEAD
POV START+9
POV1 POV+1
POVW WRT+9
WRT POV+2

Naked Globals

Name Field # of Occurrence
^(0 START+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCD80D START+1*, HEAD1+12
>> APCDBD START+2
>> APCDBDD START+2*, HEAD1+4
>> APCDBT START+7, START+9, POV1+1, POV1+2
>> APCDCLN HEAD1+7, HEAD1+8
>> APCDDATE WRT+2*, WRT+6
>> APCDED START+2
>> APCDEDD START+2*, HEAD1+4
>> APCDGOT START+6*, START+9
>> APCDHRN WRT+4*, WRT+6
>> APCDJOB START+7, START+9, POV1+1, POV1+2
>> APCDLENG HEAD1+5*, HEAD1+6, HEAD1+7*, HEAD1+8
>> APCDLHDR HEAD1+2
>> APCDMAX START+3*, START+4*, START+5, START+6, HEAD1+9
>> APCDNQ WRT+8*, POVW+2*
>> APCDPAT WRT+3*, WRT+4
>> APCDPG START+5*, START+7*, HEAD, HEAD1+1*, HEAD1+2
>> APCDPOV POV+1*, POV1+1, POV1+2
APCDPOVA POV+1!
APCDPOVA( POV1+1*, POV1+2*, POVW+1, POVW+2
APCDPOVA(1 WRT+6
>> APCDPOVC POV+1*, POV1+1*, POV1+2*, WRT+1
>> APCDPOVD WRT+6*, WRT+8, POVW+2*, POVW+3
>> APCDPOVN POVW+1*, POVW+2
>> APCDPROV HEAD1+5, HEAD1+6
APCDQUIT START+8!, START+9, START+10, START+11, DONE+1, WRT+1, HEAD+1*
>> APCDRSM HEAD1+9
>> APCDVCNT START+3, START+4, START+6, START+9, HEAD1+9
>> APCDVDFN START+9*, POV+1, WRT+8
>> APCDVREC START+9*, WRT+2, WRT+3
>> APCDX START+9*
DIR DONE+1!, HEAD+1!
DIR(0 DONE+1*, HEAD+1*
>> DTOUT HEAD+1
DUZ(2 WRT+4, HEAD1+3
IO DONE+1, HEAD+1
IO(0 DONE+1, HEAD+1
IOF DONE+2, HEAD1+1
IOSL START+11, WRT+1
IOST DONE+1, HEAD+1
U POV1+2, WRT+3, WRT+4, WRT+6, WRT+8, POVW+2, POVW+3, HEAD1+3, HEAD1+5, HEAD1+6
, HEAD1+7, HEAD1+8
>> Y START+2*, WRT+2*, HEAD+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All