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 |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APCDELAB

Package: Patient Care Component

Routine: APCDELAB


Information

APCDELAB ; IHS/CMI/LAB - LAB LOG ENTRY ;

Source Information

Source file <APCDELAB.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Care Component 4 GETPAT^APCDEA  ^APCDEA2  ^APCDEIN  ^APCDEKL  
VA Fileman 4 ^%DT  ^%DTC  ^DIC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
RDPV ;
LABLOG ;
HDR ;
LABTEST ;
GETLOC ; GET LOCATION OF ENCOUNTER
EOJ ; END OF JOB
GETMNEK ; KILL GETMNE SPECIFIC VARIABLES
GETTYPE ; GET TYPE OF ENCOUNTER
GETPAT ; GET PATIENT
PROCESS ; PROCESS MNEMONIC
GETCAT ; GET SERVICE CATEGORY
TEXT ;
RESTOFIT
GETDATE ; GET DATE

External References

Name Field # of Occurrence
^%DT GETDATE+1
^%DTC GETPAT+3
GETPAT^APCDEA GETPAT+1
^APCDEA2 LABLOG+4, LABTEST+7
^APCDEIN HDR+5
^APCDEKL EOJ+1
^DIC GETLOC+2, LABLOG+1, LABTEST+2, LABTEST+5
^DIR RDPV+3, GETTYPE+3, GETCAT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?80-$L(APCDX)\2,APCDX
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RDPV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"LAB LOG TEMPLATE MISSING, NOTIFY YOUR SUPERVISOR"
  • Line Location: LABLOG+2
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"LAB TEST TEMPLATE MISSING, NOTIFY YOUR SUPERVISOR"
  • Line Location: LABTEST+3
Routine Call
  • DIC
  • Line Location:
    • GETLOC+2
    • LABLOG+1
    • LABTEST+2
    • LABTEST+5
Routine Call
  • DIR
  • Line Location:
    • RDPV+3
    • GETTYPE+3
    • GETCAT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^APCDTKW - [#9001001] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Label References

Name Line Occurrences
EOJ HDR+9
GETCAT HDR+8
GETDATE RESTOFIT
GETLOC HDR+8
GETMNEK LABLOG+4, LABTEST+7
GETPAT LABLOG+4, LABTEST+7
GETTYPE HDR+8
LABLOG PROCESS+1
LABTEST PROCESS+2
PROCESS RESTOFIT
RDPV RESTOFIT
RESTOFIT HDR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+4!
%DT GETDATE+1*, EOJ+4!
%DT("A" GETDATE+1*, GETDATE+4!
APCDADD LABLOG+4!, LABTEST+7!
APCDALVR LABLOG+4!, LABTEST+7!
>> APCDCAT HDR+8*, GETCAT+1*, GETCAT+5*
>> APCDDATE RESTOFIT*, GETDATE+1*, GETDATE+3*, GETPAT+3
>> APCDFLG HDR+6
APCDJ HDR+2*, HDR+3!
APCDLAB HDR+7*, EOJ+3!
APCDLABT LABTEST+1*, LABTEST+6*, EOJ+3!
>> APCDLOC HDR+8*, GETLOC+1*, GETLOC+4*
>> APCDPAT HDR+7*, GETPAT+2, LABLOG+4*, LABTEST+7*
APCDPATE RESTOFIT*, RDPV+1*, RDPV+6*, PROCESS+1, PROCESS+2, GETMNEK+1!, EOJ+3!
>> APCDTPLT LABLOG+3*, LABTEST+4*
>> APCDTPLT("NAME" LABLOG+3*, LABTEST+4*
>> APCDTYPE HDR+8*, GETTYPE+1*, GETTYPE+5*
APCDVSIT GETMNEK+1!
APCDX HDR+2*, HDR+3!
>> AUPNDAYS GETPAT+3*
>> AUPNDOB GETPAT+3
D EOJ+2!
DA GETLOC+2!, GETTYPE+2!, GETCAT+2!, GETCAT+6!
DI EOJ+2!
DIC GETLOC+2*!, LABLOG+1*, LABTEST+2*!, LABTEST+5*!, LABTEST+6!
DIC("A" LABLOG+1!, LABTEST+5*
DIC("B" LABLOG+1!
DIC("S" LABLOG+1*!, LABTEST+2*
DIC(0 GETLOC+2*, LABLOG+1*, LABTEST+2*, LABTEST+5*
DIG EOJ+2!
DIH EOJ+2!
DIR RDPV+3!, GETTYPE+2!, GETTYPE+3!, GETTYPE+6!, GETCAT+2!, GETCAT+3!, GETCAT+6!
DIR("A" RDPV+3*, GETTYPE+3*, GETCAT+3*
DIR(0 RDPV+3*, GETTYPE+3*, GETCAT+3*
DIROUT GETTYPE+2!, GETTYPE+6!, GETCAT+2!, GETCAT+6!
DIRUT RDPV+3*, GETTYPE+2!, GETTYPE+4, GETTYPE+6!, GETCAT+2!, GETCAT+4, GETCAT+6!
DIW EOJ+2!
DK EOJ+2!
DL EOJ+2!
DLOUT EOJ+2!
DQ EOJ+2!
DTOUT RDPV+5, GETTYPE+2!, GETTYPE+6!, GETCAT+2!, GETCAT+6!
DUOUT RDPV+3, RDPV+5, GETTYPE+2!, GETTYPE+6!, GETCAT+2!, GETCAT+6!
DX EOJ+2!
IOF HDR+1
POP EOJ+2!
U LABLOG+3, LABTEST+4
X GETTYPE+4*, GETCAT+4*, GETCAT+6!, GETPAT+3, LABLOG+1*, LABTEST+2*, EOJ+2!
>> X1 GETPAT+3*
>> X2 GETPAT+3*
Y RDPV+4, RDPV+6*, GETLOC+3, GETLOC+4, GETTYPE+5, GETCAT+5, GETCAT+6!, GETDATE+2, GETDATE+3, LABLOG+2
, LABLOG+3, LABTEST+3, LABTEST+4, LABTEST+5, LABTEST+6, EOJ+2!

Marked Items

Name Field # of Occurrence
$T(TEXT+APCDJ HDR+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items |  All