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 |  Marked Items |  All
Print Page as PDF
Routine: APCDEHI

Package: Patient Care Component

Routine: APCDEHI


Information

APCDEHI ; IHS/CMI/LAB - enter historical inpatient data ;

Source Information

Source file <APCDEHI.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 ^%DT  ^%DTC  ^DIC  YN^DICN  ^DIR  
Patient Care Component 3 ^APCDEHI2  ^APCDEIN  ^APCDEKL  

Entry Points

Name Comments DBIA/ICR reference
HDR ;
GETLOC ; GET LOCATION OF ENCOUNTER
EOJ ; END OF JOB
GETTYPE ; GET TYPE OF ENCOUNTER
GETPAT ; GET PATIENT
EDTIME
GETTIME ;
TEXT ;
PROCESS ; PROCESS PATIENT
GETDATE ; GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
^%DT GETDATE+6
^%DTC GETPAT+7
^APCDEHI2 PROCESS+1
^APCDEIN HDR+4
^APCDEKL EOJ+1
^DIC GETLOC+2, GETPAT+3
YN^DICN GETPAT+5
^DIR GETTYPE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?80-$L(APCDX)\2,APCDX
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: READ
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Variable: X
  • Line Location: GETDATE+3
Function Call: WRITE
  • Prompt: X
  • Line Location: GETDATE+5
Function Call: READ
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Variable: X
  • Line Location: GETTIME+3
Function Call: WRITE
  • Prompt: APCDBEEP," Time Required!"
  • Line Location: GETTIME+6
Function Call: WRITE
  • Prompt: !,"Enter time of visit, or 'D' for default."
  • Line Location: GETTIME+7
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: GETTIME+8
Function Call: WRITE
  • Prompt: APCDBEEP
  • Line Location: EDTIME+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDTIME+3
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !!,"Returning to Add Mode.",!
  • Line Location: PROCESS+2
Routine Call
  • DIC
  • Line Location:
    • GETLOC+2
    • GETPAT+3
Routine Call
  • DIR
  • Line Location:
    • GETTYPE+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("APCD" EDTIME+1

Label References

Name Line Occurrences
EOJ HDR+6
GETDATE HDR+5, GETDATE+6, EDTIME+2, EDTIME+3
GETLOC HDR+5
GETPAT HDR+5
GETTIME GETTIME+6, GETTIME+7
GETTYPE HDR+5
PROCESS HDR+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GETPAT+5*
>> %DT GETDATE+6*
APCDAPP PROCESS+2!
>> APCDBEEP GETTIME+6, EDTIME+2
>> APCDCAT HDR+4*, GETTIME+2
>> APCDDATE HDR+5*, GETDATE+1, GETDATE+2*, GETDATE+8*, GETTIME+5*, EDTIME, EDTIME+4*, GETPAT+7
APCDDOB EOJ+2!
APCDDOD EOJ+2!
APCDHINP HDR+4*, EOJ+2!
APCDJ HDR+1*, HDR+3!
>> APCDL HDR+5*
>> APCDLOC HDR+5*, GETLOC+1*, GETLOC+4*
APCDODAT GETDATE+1*, GETDATE+5, GETDATE+7!
>> APCDPARM GETPAT+5
APCDPAT HDR+5*, GETPAT+2*, GETPAT+6*, EOJ+2!
APCDSEX EOJ+2!
>> APCDTIME GETTIME+1*, GETTIME+2*, GETTIME+3, GETTIME+4*, EDTIME*
>> APCDTPLT HDR+4*
>> APCDTPLT("NAME" HDR+4*
>> APCDTYPE HDR+5*, GETTYPE+1*, GETTYPE+5*, GETTIME+2
APCDVSIT EOJ+2!
APCDX HDR+1*, HDR+3!
>> AUPNDAYS GETPAT+7*
>> AUPNDOB GETPAT+7
DA GETTYPE+2!
DIC HDR+4!, GETLOC+2*!, GETPAT+3*!
DIC(0 GETLOC+2*, GETPAT+3*
DIR GETTYPE+2!, GETTYPE+3!, GETTYPE+6!, EOJ+3!
DIR("A" GETTYPE+3*
DIR(0 GETTYPE+3*
DIROUT GETTYPE+2!, GETTYPE+6!
DIRUT GETTYPE+2!, GETTYPE+4, GETTYPE+6!
DTIME GETDATE+3, GETTIME+3
DTOUT GETTYPE+2!, GETTYPE+6!, EOJ+3!
DUOUT GETTYPE+2!, GETTYPE+6!, EOJ+3!
U GETPAT+5
>> X GETTYPE+4*, GETTYPE+5, GETDATE+3*, GETDATE+4, GETDATE+5*, GETDATE+8, GETTIME+3*, GETTIME+5, GETTIME+6, GETTIME+7
, GETTIME+8*, EDTIME*, EDTIME+2, EDTIME+3, EDTIME+4, GETPAT+7
>> X1 GETPAT+7*
>> X2 GETPAT+7*
>> Y GETLOC+3, GETLOC+4, GETDATE+6, GETPAT+4, GETPAT+6

Marked Items

Name Field # of Occurrence
$T(TEXT+APCDJ HDR+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 |  Marked Items |  All