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

Package: Patient Care Component

Routine: APCDCAF2


Information

APCDCAF2 ; IHS/CMI/LAB - MENTAL HLTH ROUTINE 16-AUG-1994 ;

Source Information

Source file <APCDCAF2.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
IHS VA Utilities 4 $$VAL^XBDIQ1  (ARRAY,VIEWR)^XBLM  EN^XBNEW  EN^XBVK  
Patient Care Component 4 PAUSE^APCDALV1  ($$ERRORCHK,BACK,EOP)^APCDCAF  EN^APCDCAF6  (DSPLY,GETVISIT)^APCDDISP  
Registration 3 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
Kernel 2 $$FMTE^XLFDT  DISP^XQORM1  
IHS Patient 1 ($$HRN,KILL)^AUPNPAT  
Patient Care Component Reports 1 ($$CLINIC,$$PRIMPROV)^APCLV  
Text Integration Utility 1 BROWS1^TIURA2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component 2 APCDCAF  APCDCAF3  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP
NOTEX ;
HDR ;EP -- header code
HS ;
BH ;EP
BACK ;EP - go back to listman
BH1 ;
EXPND ; -- expand code
EOP ;EP - End of page.
RECDISP ;
MNOTE ;
REC ;
HELP ;EP -- help code
BHX ;
PROC1 ; call listmanager
INIT ;EP -- init variables and list array
LBLK(V,L) ;left blank fill
CASHXX ;
DISP1 ;
HSX ;
DATE(D) ;
EN ; EP -- main entry point for CHART AUDIT LISTMANAGER DISPLAY
LASTCDR(V,F) ;EP - get last chart deficiency reason
BHSOAP ;look for SOAP note and display if it exists
HS1 ;
RBLK(V,L) ;left blank fill
CP ;EP - change patient if in one patient
VAV ;EP - view any visit when in OP
CDE ;EP
ADDVISIT ;
BHM ;
CASHX ;EP
DISPX ;
NOTEDISP ;
GATHER ;
NOTE1 ;
EXIT ; -- exit code
CDEX ;

External References

Name Field # of Occurrence
PAUSE^APCDALV1 BH+3, CP+3, DISP1+3, DISP1+5
$$ERRORCHK^APCDCAF REC+1
BACK^APCDCAF CP+3, CP+7, PROC1+2
EOP^APCDCAF CDE+4, CDE+5
EN^APCDCAF6 CDE+8
DSPLY^APCDDISP DISP1+4
GETVISIT^APCDDISP DISP1+2
$$CLINIC^APCLV REC+12
$$PRIMPROV^APCLV REC+13
$$HRN^AUPNPAT REC+6
KILL^AUPNPAT NOTEX+2, HSX+3, BHX+2, DISPX+2
^DIC HS1+4, CP+6
YN^DICN CP+8
^DIR NOTEDISP+4, MNOTE+9, CASHX+4, CDE+3, HS+5, EOP+5, BH+5, BHM+9, BHSOAP+3
BROWS1^TIURA2 NOTEDISP+2, NOTE1+2, BH1+2
EN^VALM EN+5
TERM^VALM0 EN+3, BACK+1
CLEAR^VALM1 EN+4, EN+6
FULL^VALM1 NOTEDISP+8, CASHX+1, HS+1, BH+9, CP+2, DISP+1
$$VAL^XBDIQ1 REC+10, LASTCDR+10, MNOTE+4, BHM+4, BHSOAP+6
ARRAY^XBLM BHSOAP+6
VIEWR^XBLM CASHX+8, HS1+8
EN^XBNEW ADDVISIT+2, DISP+2
EN^XBVK HSX+2
$$FMTE^XLFDT DATE+4
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"TIU not installed"
  • Line Location: NOTEDISP+2
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: NOTEDISP+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: NOTEDISP+6
Function Call: WRITE
  • Prompt: !!,"That visit does not have any notes to view"
  • Line Location: NOTEDISP+9
Function Call: WRITE
  • Prompt: !!,"There are more than one note associated with this visit.",!,"Please choose which note to display.",!
  • Line Location: MNOTE+1
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: CASHX+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: CASHX+6
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: CDE+4
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: CDE+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: HS+6
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: HS+7
Function Call: WRITE
  • Prompt: !!,"TIU not installed"
  • Line Location: BH+2
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to see Behavioral Health Notes.",!,"Please see your supervisor for access. The security key needed is AMHZ CODING REVIEW.",!
  • Line Location: BH+3
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: BH+6
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: BH+7
Function Call: WRITE
  • Prompt: !!,"There are more than one note associated with this visit.",!,"Please choose which note to display.",!
  • Line Location: BHM+1
Function Call: WRITE
  • Prompt: !!,"This item is only allowed to be used when you are in the PEHR option."
  • Line Location: CP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CP+5
Function Call: WRITE
  • Prompt: !!,"No visit selected."
  • Line Location: DISP1+3
Routine Call
  • VALM
  • Line Location:
    • EN+5
Routine Call
  • DIC
  • Line Location:
    • HS1+4
    • CP+6
Routine Call
  • DIR
  • Line Location:
    • NOTEDISP+4
    • MNOTE+9
    • CASHX+4
    • CDE+3
    • HS+5
    • EOP+5
    • BH+5
    • BHM+9
    • BHSOAP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^APCHSCTL - [#9001015] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] BHSOAP+1
^AMHREC("AVISIT" BH+10, BH+15
^APCCCTRL - [#9001000] HS1+1, PROC1+1
^APCHSCTL - [#9001015] HS1+1, HS1+2
^AUPNVCA - [#9000010.45] LASTCDR+5, LASTCDR+6, LASTCDR+10
^AUPNVCA("AD" LASTCDR+2, LASTCDR+4
^AUPNVNOT - [#9000010.28] NOTE1+1, BH1+1
^AUPNVNOT("AD" NOTEDISP+9, NOTEDISP+10, NOTEDISP+11, MNOTE+3, BH+16, BH+17, BH+18, BHM+3
^AUPNVSIT - [#9000010] GATHER+5, RECDISP+4, REC+4, REC+7, REC+11, REC+14, CDE+8, HS+9
^AUPNVSIT("AA" GATHER+3, GATHER+4
^AUTTLOC - [#9999999.06] REC+8
^DISV( HS1+2
^DPT - [#2] REC+5, HS1+7
^TMP("APCDCAF OP" EN+7!, GATHER+1!, RECDISP+5*, RECDISP+6*, NOTEDISP+7, CASHX+7, CDE+6, HS+8
^TMP("APCDCAF" BH+8
^TMP($J EN+7!, EXIT+1!, GATHER+1!, GATHER+11*, RECDISP+1, RECDISP+2
^XUSEC("AMHZ CODING REVIEW" BH+3

Label References

Name Line Occurrences
$$DATE REC+4
$$LBLK REC+6
BACK NOTEX+3, CASHXX+2, CDEX+3, HSX+4, ADDVISIT+4, BHX+3, DISPX+3
BH1 BH+18
BHSOAP BH+16, BH+18, BHM+10, BHM+11
BHX BH+3, BH+6, BH+7, BH+10
CASHXX CASHX+5, CASHX+6
CDEX CDE+4, CDE+5
EOP NOTEDISP+2, NOTEDISP+5, NOTEDISP+6, NOTEDISP+9, CASHX+5, CASHX+6, CASHX+9, HS+6, HS+7, HS1+5
, BH+6, BH+7, BH+14
GATHER INIT+2
HDR BACK+4
HS1 HS+2
HSX HS+6, HS+7, HS1+5
INIT BACK+3
NOTE1 NOTEDISP+11
NOTEX NOTEDISP+2, NOTEDISP+5, NOTEDISP+6, NOTEDISP+9, NOTEDISP+11, MNOTE+10, MNOTE+11
REC RECDISP+4
RECDISP INIT+3

Naked Globals

Name Field # of Occurrence
^("^APCHSCTL(" HS1+2
^(0 HS1+1, HS1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RBLK+1~, RBLK+2*, LBLK+1~, LBLK+2*, CP+8*
A LASTCDR+3~
A( LASTCDR+7*, LASTCDR+9
A(0 LASTCDR+8
>> APCDBD PROC1+1*
APCDCAF CDEX+1!, ADDVISIT+3!, DISPX+1!
APCDCAF("IN C AF W/PATIENT" , ADDVISIT+1*
>> APCDCAFD GATHER+2
>> APCDCAFP PROC1+1*
APCDCAFV CDE+8*, CDEX+1!, DISPX+1!
>> APCDDFN GATHER+3, GATHER+4, HS+2, ADDVISIT+1
>> APCDED PROC1+1*
>> APCDERR REC+1*, REC+3, REC+16
APCDHDR HS1+7*, HS1+8, HSX+1!
APCDN MNOTE+2!, BHM+2!
APCDN( MNOTE+5*, MNOTE+12, BHM+5*, BHM+12
>> APCDODAT GATHER+2*, GATHER+3*, GATHER+4
>> APCDPARM CP+8
APCDPAT CDE+8*, HS+2*, HS+9*, HSX+1!, DISP1+1*
>> APCDPATF CP+9*
>> APCDPEHR CP+3, PROC1+1*
APCDPLPT HSX+1!
APCDRCNT INIT+4, EXIT+1!, GATHER+3*, RECDISP+3*, RECDISP+5, RECDISP+6, REC+3, NOTEDISP+3, CASHX+3, CDE+2
, HS+4, BH+4
>> APCDSTOP GATHER+2*, GATHER+3
APCDSV RECDISP+1*, RECDISP+2, RECDISP+7!
APCDTIU NOTE1+1*, NOTE1+2, NOTEX+1!, BH1+1*, BH1+2, BHX+1!
APCDV RECDISP+2*, RECDISP+4, RECDISP+6, RECDISP+7!, REC+1, REC+4, REC+7, REC+10, REC+11, REC+12
, REC+13, REC+14
>> APCDV0 GATHER+5*, GATHER+6, GATHER+7, GATHER+8, GATHER+9
>> APCDVBH BH+15*, BHSOAP+1, BHSOAP+6
>> APCDVIEN GATHER+3*, GATHER+4*, GATHER+5, GATHER+11
>> APCDVLOC GATHER+9*, GATHER+10
APCDVNOT NOTEDISP+11*, MNOTE+12*, NOTE1+1, NOTEX+1!, BH+18*, BHM+12*, BH1+1, BHX+1!
APCDVSIT NOTEDISP+7*, NOTEDISP+9, NOTEDISP+10, NOTEDISP+11, MNOTE+3, NOTEX+1!, CASHX+7*, CASHXX+1!, CDE+6*, CDE+8
, CDEX+1!, HS+8*, HS+9, HSX+1!, BH+8*, BH+10, BH+15, BH+16, BH+17, BH+18
, BHM+3, BHX+1!, DISPX+1!, DISP1+3
APCDX RECDISP+4*, RECDISP+5, RECDISP+7!, REC+2*, REC+3*, REC+4*, REC+5*, REC+6*, REC+9*, REC+10*
, REC+11*, REC+12*, REC+13*, REC+15*, REC+16*
>> APCHSPAT HS+2*, HS+9*, HS1+6*, HS1+7
>> APCHSTYP HS1+6*
AUPNDAYS HSX+1!
AUPNVSIT HSX+1!
>> C NOTEDISP+10*, NOTEDISP+11, MNOTE+3*, MNOTE+4, MNOTE+5, MNOTE+8, BH+17*, BH+18, BHM+3*, BHM+4
, BHM+5, BHM+8
D DATE~, DATE+2, DATE+3, DATE+4, LASTCDR+3~, LASTCDR+6*, LASTCDR+7
D0 HS1+4!
D1 HS1+4!
DA HS1+4!, BHSOAP+3!
DD HS1+4!
DFN RECDISP+4*, REC+5, REC+6, HS+2*, HS+9*, HS1+6, HSX+1!, CP+9*, PROC1+1, DISP1+1
DFOUT EOP+4!
DIC HS1+4!*, CP+6*!
DIC("B" HS1+4*
DIC(0 HS1+4*, CP+6*
DIR BACK+5!, NOTEDISP+1!, NOTEDISP+4!, MNOTE+7!, MNOTE+9!, NOTEX+1!, CASHX+2!, CASHX+4!, CASHXX+1!, CDE+1!
, CDE+3!, CDEX+1!, HS+3!, HS+5!, EOP+3~, BH+1!, BH+5!, BHM+7!, BHM+9!, BHSOAP+3!
, BHX+1!, DISPX+1!
DIR("A" NOTEDISP+3*, MNOTE+8*, CASHX+3*, CDE+2*, HS+4*, EOP+5*, BH+4*, BHM+8*, BHSOAP+3*
DIR("B" BHSOAP+3*
DIR(0 NOTEDISP+3*, MNOTE+8*, CASHX+3*, CDE+2*, HS+4*, EOP+5*, BH+4*, BHM+8*, BHSOAP+3*
DIRUT NOTEDISP+4*, NOTEDISP+6, MNOTE+9*, MNOTE+11, NOTEX+1!, CASHX+4*, CASHX+6, CASHXX+1!, CDE+3*, CDE+5
, CDEX+1!, HS+5*, HS+7, EOP+4!, BH+5*, BH+7, BHM+9*, BHM+11, BHSOAP+4, BHX+1!
, DISPX+1!
DLOUT EOP+4!
DQ HS1+4!
DR HS1+4!
DT PROC1+1
DTOUT EOP+4!
DUOUT NOTEDISP+4, MNOTE+9, NOTEX+1!, CASHX+4, CASHXX+1!, CDE+3, CDEX+1!, HS+5, EOP+4!, BH+5
, BHM+9, BHX+1!, DISPX+1!
DUZ HS1+2, BH+3
DUZ(2 REC+6, HS1+1, PROC1+1
F LASTCDR~, LASTCDR+1*, LASTCDR+10
I RBLK+1~, RBLK+2*, LBLK+1~, LBLK+2*, BACK+6!
IOST EOP+1
L REC+7*, REC+8*, REC+9, REC+14*, REC+15, RBLK~, RBLK+2, LBLK~, LBLK+2, LASTCDR+3~
, LASTCDR+8*, LASTCDR+9
U GATHER+7, GATHER+8, GATHER+9, RECDISP+4, REC+4, REC+5, REC+7, REC+8, REC+11, REC+14
, LASTCDR+6, LASTCDR+10, NOTE1+1, CDE+8, HS+9, HS1+1, HS1+2, HS1+7, BH1+1, CP+8
, PROC1+1
V RBLK~, RBLK+2*, RBLK+3, LBLK~, LBLK+2*, LBLK+3, LASTCDR~, LASTCDR+2, LASTCDR+4
VALMBCK BACK+2*, CDE+7!
>> VALMCC EN+1*
VALMCNT EN+2~, INIT+4*
>> VALMHDR(1 HDR+3*
>> VALMHDR(2 HDR+2*
>> VALMSG INIT+1*
X HDR+1*, HDR+2, HELP+1*, DATE+1~, DATE+2*, DATE+3*, DATE+5, LASTCDR+3~, LASTCDR+4*, LASTCDR+5
, LASTCDR+6, LASTCDR+7, LASTCDR+9*, LASTCDR+10, BACK+6!, NOTEDISP+10*, MNOTE+3*, MNOTE+4, MNOTE+5, NOTEX+1!
, HS1+1*, HS1+2*, HS1+3*, HS1+4, HSX+1!, BH+17*, BHM+3*, BHM+4, BHM+5, BHX+1!
Y DATE+1~, DATE+4*, DATE+5, BACK+6!, NOTEDISP+5, NOTEDISP+7, MNOTE+10, MNOTE+12, NOTEX+1!, CASHX+5
, CASHX+7, CASHXX+1!, CDE+4, CDE+6, CDEX+1!, HS+2*, HS+6, HS+8, HS+9*, HS1+2*
, HS1+5, HS1+6, HSX+1!, BH+6, BH+8, BHM+10, BHM+12, BHSOAP+5, BHX+1!, CP+7
, CP+9, DISPX+1!
Z RBLK+2*, LBLK+2*, BACK+6!

Marked Items

Name Field # of Occurrence
$T(BROWS1^TIURA2 NOTEDISP+2
Info |  Source |  Call Graph |  Caller 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