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: APCDERAD

Package: Patient Care Component

Routine: APCDERAD


Information

APCDERAD ; IHS/CMI/LAB - RAD LOG ENTRY ;

Source Information

Source file <APCDERAD.m>

Call Graph

Call Graph Total: 9

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

Entry Points

Name Comments DBIA/ICR reference
HDR ;
RADLOG ;
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 RADLOG+4
^APCDEIN HDR+5
^APCDEKL EOJ+1
KILL^AUPNPAT EOJ+2
^DIC GETLOC+2, RADLOG+1
^DIR 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: GETDATE+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"RAD LOG TEMPLATE MISSING, NOTIFY YOUR SUPERVISOR"
  • Line Location: RADLOG+2
Routine Call
  • DIC
  • Line Location:
    • GETLOC+2
    • RADLOG+1
Routine Call
  • DIR
  • Line Location:
    • GETTYPE+3
    • GETCAT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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 RADLOG+4
GETPAT RADLOG+4
GETTYPE HDR+8
PROCESS RESTOFIT
RADLOG PROCESS+1
RESTOFIT HDR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

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