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 |  Local Variables |  All
Print Page as PDF
Routine: APCDFINQ

Package: Patient Care Component

Routine: APCDFINQ


Information

APCDFINQ ; IHS/CMI/LAB - DATA ENTRY OPERATOR INQUIRY 3/16/93 3:11 PM ;

Source Information

Source file <APCDFINQ.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS VA Utilities 1 $$VAL^XBDIQ1  
Patient Care Component 1 ^APCDVLK  
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
EOJ ; EOJ HOUSE KEEPING
DSPLY ;
ASKPAT
GETPAT ; GET PATIENT
GETVISIT ;

External References

Name Field # of Occurrence
^APCDVLK GETVISIT+3
^DIC GETPAT+3
$$VAL^XBDIQ1 DSPLY+9, DSPLY+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No PATIENT selected!"
  • Line Location: ASKPAT+1
Function Call: WRITE
  • Prompt: !!,"No VISIT selected!"
  • Line Location: ASKPAT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKPAT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY+2
Function Call: WRITE
  • Prompt: !," Visit date/time: ",Y," [internal entry# ",APCDVSIT,"]"
  • Line Location: DSPLY+3
Function Call: WRITE
  • Prompt: !," -- no posting data for that visit!"
  • Line Location: DSPLY+4
Function Call: WRITE
  • Prompt: !," Posting date: ",Y
  • Line Location: DSPLY+5
Function Call: WRITE
  • Prompt: !," -- missing form control file entry!"
  • Line Location: DSPLY+6
Function Call: WRITE
  • Prompt: !," Data entry operator: ",$P(^VA(200,APCDUSR,0),U)
  • Line Location: DSPLY+8
Function Call: WRITE
  • Prompt: !,"Date Last Modified: ",$$VAL^XBDIQ1(9000010,APCDVSIT,.13)
  • Line Location: DSPLY+9
Function Call: WRITE
  • Prompt: !,"User Last Mofified: ",$$VAL^XBDIQ1(9000010,APCDVSIT,.23)
  • Line Location: DSPLY+10
Routine Call
  • DIC
  • Line Location:
    • GETPAT+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDFORM - [#9001001.5] DSPLY+5, DSPLY+7
^APCDFORM("AB" DSPLY+4, DSPLY+6
^AUPNVSIT - [#9000010] DSPLY+3
^DD("DD" DSPLY+3, DSPLY+5
^VA(200 - [#200] DSPLY+8

Label References

Name Line Occurrences
ASKPAT ASKPAT+3
DSPLY ASKPAT+4
EOJ ASKPAT+1, ASKPAT+5
GETPAT ASKPAT
GETVISIT ASKPAT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+1!
%DT EOJ+1!
%X EOJ+1!
%Y EOJ+1!
APCDCAT EOJ+2!
APCDCLN EOJ+2!
APCDDATE DSPLY+4*, DSPLY+5, DSPLY+6, DSPLY+7, EOJ+2!
APCDLOC EOJ+2!
APCDLOOK GETVISIT+1*, GETVISIT+4!, EOJ+2!
APCDMULT DSPLY+6*, DSPLY+7, EOJ+2!
APCDPAT ASKPAT+1, GETPAT+2*, GETPAT+5*, EOJ+2!
APCDTYPE EOJ+2!
APCDUSR DSPLY+7*, DSPLY+8, EOJ+2!
APCDVLK GETVISIT+2!
APCDVSIT ASKPAT+3, GETVISIT+1*, DSPLY+3, DSPLY+4, DSPLY+6, DSPLY+9, DSPLY+10, EOJ+2!
AUPNDAYS EOJ+3!
AUPNDOB EOJ+3!
AUPNDOD EOJ+3!
AUPNPAT EOJ+3!
AUPNSEX EOJ+3!
C EOJ+1!
DIC GETPAT+3*!
DIC(0 GETPAT+3*
DIYS EOJ+1!
U DSPLY+3, DSPLY+5, DSPLY+7, DSPLY+8
X EOJ+1!
Y GETPAT+4, GETPAT+5, DSPLY+3*, DSPLY+5*, EOJ+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All