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

Package: Patient Care Component

Routine: APCDPE1


Information

APCDPE1 ; IHS/CMI/LAB - DATA ENTRY ENTER MODE ;

Source Information

Source file <APCDPE1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Care Component 4 (GETPAT,INAC)^APCDEA  ^APCDEIN  ^APCDEKL  ^APCDPE2  
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDPE  

Entry Points

Name Comments DBIA/ICR reference
HDR ; Write Header
GETLOC ; GET LOCATION OF ENCOUNTER
GETTEMP ;
GETTYPE ; GET TYPE OF ENCOUNTER
GETPAT ; GET PATIENT
EDTIME
GETTIME ;
EOJ ; END OF JOB
GETCAT ; GET SERVICE CATEGORY
GETCLIN ;
PROCESS ; PROCESS PATIENT
PROC1 ;********* loop through patients
GETDATE ; GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
^%DT GETDATE+4
GETPAT^APCDEA GETPAT+1
INAC^APCDEA PROC1+7
^APCDEIN HDR+5
^APCDEKL EOJ+1
^APCDPE2 PROCESS+4
^DIC GETLOC+3, GETCLIN+4, GETTEMP+2
^DIR GETTYPE+4, GETCAT+4, PROC1+3
$$FMTE^XLFDT PROCESS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "The following PCC Data Items will be prompted for for each visit created:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?10,$P(^APCDTKW(APCDCSEL(X),0),U),?16,$S($P(^APCDTKW(APCDCSEL(X),0),U,12)]"":$P(^APCDTKW(APCDCSEL(X),0),U,12),1:$P(^APCDTKW(APCDCSEL(X),0),U,6))
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETLOC+1
Function Call: READ
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Variable: X
  • Line Location: GETDATE+2
Function Call: WRITE
  • Prompt: " <Future dates not allowed>",$C(7),$C(7)
  • 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: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: PROCESS+1
Function Call: WRITE
  • Prompt: !!,"Generating PCC Visit for ",$P(^DPT(APCDPAT,0),U)," DOB: ",$$FMTE^XLFDT($P(^DPT(APCDPAT,0),U,3)),!!
  • Line Location: PROCESS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GETTEMP+2
Routine Call
  • DIC
  • Line Location:
    • GETLOC+3
    • GETCLIN+4
    • GETTEMP+2
Routine Call
  • DIR
  • Line Location:
    • GETTYPE+4
    • GETCAT+4
    • PROC1+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDTKW - [#9001001] HDR+4
^DIBT( PROC1+6
^DIC(4 - [#4] GETLOC+2
^DIC(40.7 - [#40.7] GETCLIN+3
^DPT - [#2] PROCESS+1
^TMP("APCD" EDTIME+1

Label References

Name Line Occurrences
EOJ GETLOC+4, PROC1+4, PROC1+5, PROC1+6, PROC1+12
GETCAT GETCLIN+5
GETDATE GETDATE+4, GETDATE+5, EDTIME+2, EDTIME+3, PROCESS+2
GETLOC GETTYPE+5
GETPAT PROC1+11
GETTEMP PROC1+6
GETTIME GETTIME+6, GETTIME+7
GETTYPE GETCAT+5
PROC1 GETCAT+8
PROCESS PROC1+9, PROC1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT GETDATE+4*
>> APCDBEEP GETTIME+6, EDTIME+2
>> APCDCAT GETCAT+1*, GETCAT+6*, GETCAT+8, GETTIME+2
>> APCDCSEL( HDR+4
>> APCDDATE GETDATE+1*, GETDATE+7*, GETTIME+5*, EDTIME, EDTIME+4*, PROCESS+3
>> APCDDEFC GETCLIN+3
>> APCDDEFL GETLOC+2
>> APCDDEFS GETCAT+3
>> APCDDEFT GETTYPE+3
>> APCDFLG HDR+6
>> APCDLOC GETLOC+2*, GETLOC+5*
APCDODAT GETDATE+6!
>> APCDPAT PROC1+6*, PROC1+7, PROC1+8*, PROC1+11*, PROCESS+1
>> APCDPECL GETCLIN+1*, GETCLIN+6*
>> APCDPEPP PROC1+2*
>> APCDPEX PROC1+6*
>> APCDTEMP PROC1+6, GETTEMP+3*, GETTEMP+4*
>> APCDTIME GETTIME+1*, GETTIME+2*, GETTIME+3, GETTIME+4*, EDTIME*
>> APCDTYPE GETTYPE+1*, GETTYPE+6*, GETTIME+2
DA GETTYPE+2!, GETCAT+2!, GETCLIN+2!, PROC1+3!, GETTEMP+2!
DIC GETLOC+3*!, GETCLIN+2!, GETCLIN+4*!, GETTEMP+2*!
DIC("A" GETCLIN+4*, GETTEMP+2*
DIC("B" GETLOC+2*, GETCLIN+3*
DIC("S" GETTEMP+2*
DIC(0 GETLOC+3*, GETCLIN+4*, GETTEMP+2*
DICR GETTEMP+2!
DIR GETTYPE+2!, GETTYPE+4!, GETCAT+2!, GETCAT+4!, GETCLIN+2!, PROC1+3!
DIR("A" GETTYPE+4*, GETCAT+4*, PROC1+3*
DIR("B" GETTYPE+3*, GETCAT+3*, PROC1+3*
DIR(0 GETTYPE+4*, GETCAT+4*, PROC1+3*
DIROUT GETTYPE+2!, GETCAT+2!, GETCLIN+2!
DIRUT GETTYPE+2!, GETTYPE+5, GETCAT+2!, GETCAT+5, GETCLIN+2!, PROC1+4
DR GETTEMP+2!
DT GETDATE+5
DTIME GETDATE+2, GETTIME+3
DTOUT GETTYPE+2!, GETCAT+2!, GETCLIN+2!
DUOUT GETTYPE+2!, GETCAT+2!, GETCLIN+2!
IOF HDR+1, PROCESS+1
U HDR+4, GETLOC+2, GETCLIN+3, PROCESS+1
X HDR+4*, GETTYPE+5*, GETCAT+5*, PROC1+7, PROC1+8, GETDATE+2*, GETDATE+3, GETDATE+5!, GETDATE+7, GETTIME+3*
, GETTIME+5, GETTIME+6, GETTIME+7, GETTIME+8*, EDTIME*, EDTIME+2, EDTIME+3, EDTIME+4
>> Y GETLOC+4, GETLOC+5, GETTYPE+6, GETCAT+6, GETCLIN+5, GETCLIN+6, PROC1+5, GETDATE+4, GETDATE+5, GETTEMP+3
, GETTEMP+4
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 |  Local Variables |  All