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 |  All
Print Page as PDF
Routine: APCDEIN

Package: Patient Care Component

Routine: APCDEIN


Information

APCDEIN ; IHS/CMI/LAB - INITIALIZE VARS ;

Source Information

Source file <APCDEIN.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 EN^DDIOL  ^DIC  FILE^DICN  ^DIE  ^DIR  
IHS VA Utilities 2 ^XBFMK  $$EXTSET^XBFUNC  
Patient Care Component 1 ^APCDVAR  

Caller Graph

Caller Graph Total: 27

Package Total Caller Graph
Patient Care Component 24 APCDCAF1  APCDCAF3  APCDEA  APCDEAP  APCDEAPC  APCDEATC  APCDECPT  APCDEDTC  
APCDEFL  APCDEFM  APCDEGP  APCDEH  APCDEHI  APCDEHTC  APCDEL  APCDELAB  
APCDELM  APCDELMP  APCDEM  APCDENV  APCDEPO  APCDERAD  APCDETP  APCDPE1  
IHS Changes To ADT 3 ADGCALLS  ADGVHF  BDGPCCEL  

Entry Points

Name Comments DBIA/ICR reference
REMOVE ;
EN ;PEP - set up PCC Data Entry environment vars
DICERR ; DICTIONARY OUT OF SYNC WITH PROGRAM
EDIT ;
SITE ;
PARAM ;
ADD ;add to list of service categories
CAH(L) ;EP
XIT ; KILL VARIABLES AND QUIT
HELPSC ;EP
DISPSC ;
EHRESP ;EP

External References

Name Field # of Occurrence
^APCDVAR PARAM+1
EN^DDIOL HELPSC+1, HELPSC+2, HELPSC+3
^DIC EHRESP+5
FILE^DICN ADD+10
^DIE EHRESP+16, EHRESP+17, EHRESP+18, EHRESP+19, REMOVE+14
^DIR EDIT+3, ADD+3, REMOVE+9
^XBFMK EHRESP+6, EHRESP+20, ADD+8, REMOVE+13
$$EXTSET^XBFUNC DISPSC+13, REMOVE+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"DUZ(""AG"") not defined..Use Kernel or Fix Kernel Site Parameters File!!"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Dictionary error for file,field ",APCDFILE,",",APCDFLD,". Notify programmer."
  • Line Location: DICERR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EHRESP+1
Function Call: WRITE
  • Prompt: !!,"EHR Coding Queue Parameter Update",!
  • Line Location: EHRESP+2
Function Call: WRITE
  • Prompt: !!,"You have the option of seeing all visits in the coding queue"
  • Line Location: EHRESP+9
Function Call: WRITE
  • Prompt: !,"regardless of how they were created. You can see all visits or"
  • Line Location: EHRESP+10
Function Call: WRITE
  • Prompt: !,"limit the list of visits in the coding queue to only those"
  • Line Location: EHRESP+11
Function Call: WRITE
  • Prompt: !,"on which a provider has been entered. If you choose to only"
  • Line Location: EHRESP+12
Function Call: WRITE
  • Prompt: !,"see visits on which a provider was entered then you will not"
  • Line Location: EHRESP+13
Function Call: WRITE
  • Prompt: !,"see visits that were created by an ancillary package. Most,"
  • Line Location: EHRESP+14
Function Call: WRITE
  • Prompt: !,"if not all visits created by EHR users will have provider."
  • Line Location: EHRESP+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: EHRESP+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: EHRESP+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: EHRESP+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: EHRESP+19
Function Call: WRITE
  • Prompt: !!,"Service Category exclusions: If you would like to exclude"
  • Line Location: DISPSC+1
Function Call: WRITE
  • Prompt: !,"visits with a particular service category from the list of"
  • Line Location: DISPSC+2
Function Call: WRITE
  • Prompt: !,"visits displayed in the coding queue you must enter those"
  • Line Location: DISPSC+3
Function Call: WRITE
  • Prompt: !,"service categories to the list below. For example, if you"
  • Line Location: DISPSC+4
Function Call: WRITE
  • Prompt: !,"do not wish to have I - In Hospital visits in the list then"
  • Line Location: DISPSC+5
Function Call: WRITE
  • Prompt: !,"you should add 'I' to the list."
  • Line Location: DISPSC+6
Function Call: WRITE
  • Prompt: !,"Please note: If you leave the list blank (empty) then all"
  • Line Location: DISPSC+7
Function Call: WRITE
  • Prompt: !,"direct (non-CHS) visits will display in the coding queue."
  • Line Location: DISPSC+8
Function Call: WRITE
  • Prompt: !,"Historical EVENT visits never display in the coding queue.",!!
  • Line Location: DISPSC+9
Function Call: WRITE
  • Prompt: !,"Your site is currently set up to exclude visits with the"
  • Line Location: DISPSC+10
Function Call: WRITE
  • Prompt: !,"following service categories from the coding queue:"
  • Line Location: DISPSC+11
Function Call: WRITE
  • Prompt: !!,"None selected, All visit service categories will be included",!,"in the coding queue."
  • Line Location: DISPSC+12
Function Call: WRITE
  • Prompt: !?10,$P(^APCDSITE(APCDSITE,13,X,0),U)," - ",$$EXTSET^XBFUNC(9000010,.07,$P(^APCDSITE(APCDSITE,13,X,0),U))
  • Line Location: DISPSC+13
Function Call: WRITE
  • Prompt: !,"That one is already on the list.",!
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !!,"adding service category failed."
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !!,"There are none to remove!"
  • Line Location: REMOVE+1
Routine Call
  • DIE
  • Line Location:
    • EHRESP+16
    • EHRESP+17
    • EHRESP+18
    • EHRESP+19
    • REMOVE+14
Routine Call
  • DIC
  • Line Location:
    • EHRESP+5
Routine Call
  • DIR
  • Line Location:
    • EDIT+3
    • ADD+3
    • REMOVE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCDSITE - [#9001001.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDSITE - [#9001001.2] EN+4, DISPSC+12, DISPSC+13, ADD+7, REMOVE+1, REMOVE+4, REMOVE+6, CAH+2
^DD( PARAM+3
^DD(9001001.2 ADD+9
^DIC(4 - [#4] EHRESP+4
^TMP("APCD" SITE+3!, PARAM+5*

Label References

Name Line Occurrences
ADD EDIT+6
DICERR PARAM+4
DISPSC EDIT+1
EDIT EHRESP+8, EDIT+8
REMOVE EDIT+7
XIT PARAM+4

Naked Globals

Name Field # of Occurrence
^(0 PARAM+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT XIT+2!
>> AICDHLIM PARAM+2*
>> APCDA ADD+6*, ADD+7, ADD+9, REMOVE+12*, REMOVE+14
>> APCDBEEP PARAM+2*
APCDDUZ EN+1!*
>> APCDDUZ2 SITE+2*
>> APCDEIN SITE+1*
APCDFILE PARAM+3*, XIT+3!, DICERR+1
APCDFLD PARAM+3*, XIT+3!, DICERR+1
>> APCDFLG EN+2*, PARAM+2*, DICERR+2*
APCDI XIT+3!
>> APCDMODE PARAM+2*
APCDN XIT+3!
>> APCDOVRR PARAM+2*
>> APCDPARM PARAM+1
APCDSITE EHRESP+7*, EHRESP+16, EHRESP+17, EHRESP+18, EHRESP+19, EHRESP+20!, DISPSC+12, DISPSC+13, ADD+7, ADD+9
, REMOVE+1, REMOVE+4, REMOVE+6, REMOVE+14
APCDSTR XIT+3!
>> APCDV REMOVE+6*, REMOVE+7, REMOVE+8
APCDX REMOVE+3!, REMOVE+7
APCDX( REMOVE+8*, REMOVE+14
APCDY XIT+3!, REMOVE+3*, REMOVE+7*, REMOVE+9
>> AUPNLK("INAC" EN+3*, EN+4!
AUPNTALK SITE+4!
D0 ADD+10!
DA EHRESP+16*, EHRESP+17*, EHRESP+18*, EHRESP+19*, EDIT+3!, ADD+3!, REMOVE+9!, REMOVE+14*
DA(1 ADD+9*, REMOVE+14*
DD ADD+10!
DIC XIT+2!, EHRESP+3!, EHRESP+4*, EHRESP+5!, ADD+9*
DIC("B" EHRESP+4*
DIC("P" ADD+9*
DIC(0 EHRESP+4*, ADD+9*
DIE EHRESP+16*!, EHRESP+17*!, EHRESP+18*!, EHRESP+19*!, REMOVE+14*
DIR XIT+2!, EDIT+3!, ADD+1!, ADD+3!, REMOVE+2!, REMOVE+9!
DIR("A" EDIT+3*, ADD+3*, REMOVE+9*
DIR("B" EDIT+3*
DIR(0 EDIT+2*, ADD+2*, REMOVE+9*
DIRUT XIT+2!, EDIT+4, ADD+4, REMOVE+10
>> DR EHRESP+16*, EHRESP+17*, EHRESP+18*, EHRESP+19*, REMOVE+14*
DUZ("AG" EN+1, EN+2, SITE+2
DUZ(0 EN+1*
DUZ(2 EN+4, SITE+2, EHRESP+4
IOF EHRESP+1
L CAH~, CAH+1, CAH+2
U EN+4, PARAM+4, PARAM+5, EHRESP+4, DISPSC+13, ADD+9, REMOVE+6, CAH+2
X PARAM+3*, PARAM+4, PARAM+5*, XIT+2!, DISPSC+13*, ADD+9*, REMOVE+4*, REMOVE+6, REMOVE+8
>> XTLKHLIM PARAM+2*
Y XIT+2!, EHRESP+6, EHRESP+7, EDIT+5, EDIT+6, EDIT+7, ADD+5, ADD+6, ADD+11, REMOVE+11
, REMOVE+12
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 |  All