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

Package: Patient Care Component

Routine: APCDECPT


Information

APCDECPT ; IHS/CMI/LAB - CPT LOG ENTRY ;

Source Information

Source file <APCDECPT.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
CPTTEST ;
HDR ;
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
CPTLOG ;
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 CPTLOG+4, CPTTEST+7
^APCDEIN HDR+5
^APCDEKL EOJ+1
KILL^AUPNPAT EOJ+2
^DIC GETLOC+2, CPTLOG+1, CPTTEST+2, CPTTEST+5
^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),"CPT LOG TEMPLATE MISSING, NOTIFY YOUR SUPERVISOR"
  • Line Location: CPTLOG+2
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"CPT TEST TEMPLATE MISSING, NOTIFY YOUR SUPERVISOR"
  • Line Location: CPTTEST+3
Routine Call
  • DIC
  • Line Location:
    • GETLOC+2
    • CPTLOG+1
    • CPTTEST+2
    • CPTTEST+5
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
CPTLOG PROCESS+1
EOJ HDR+9
GETCAT HDR+8
GETDATE RESTOFIT
GETLOC HDR+8
GETMNEK CPTLOG+4, CPTTEST+7
GETPAT CPTLOG+4, CPTTEST+7
GETTYPE HDR+8
PROCESS RESTOFIT
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 CPTLOG+4!, CPTTEST+7!
APCDALVR CPTLOG+4!, CPTTEST+7!
>> APCDCAT HDR+8*, GETCAT+1*, GETCAT+5*
APCDCPT HDR+7*, EOJ+5!
APCDCPTT CPTTEST+1*, CPTTEST+6*, EOJ+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, CPTLOG+4*, CPTTEST+7*
>> APCDTPLT CPTLOG+3*, CPTTEST+4*
>> APCDTPLT("NAME" CPTLOG+3*, CPTTEST+4*
>> APCDTYPE HDR+8*, GETTYPE+1*, GETTYPE+6*
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*!, CPTLOG+1*, CPTTEST+2*!, CPTTEST+5*!, CPTTEST+6!
DIC("A" CPTLOG+1!, CPTTEST+5*
DIC("B" CPTLOG+1!
DIC("S" CPTLOG+1*!, CPTTEST+2*
DIC(0 GETLOC+2*, CPTLOG+1*, CPTTEST+2*, CPTTEST+5*
DIG EOJ+4!
DIH EOJ+4!
DIR GETTYPE+2!, GETTYPE+3!, GETTYPE+4!, GETCAT+2!, GETCAT+3!, GETCAT+6!
DIR("A" GETTYPE+3*, GETCAT+3*
DIR(0 GETTYPE+3*, GETCAT+3*
DIROUT GETTYPE+2!, GETTYPE+4!, GETCAT+2!, GETCAT+6!
DIRUT GETTYPE+2!, GETTYPE+4!, GETTYPE+5, 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+4!, GETCAT+2!, GETCAT+6!
DUOUT GETTYPE+2!, GETTYPE+4!, GETCAT+2!, GETCAT+6!
DX EOJ+4!
IOF HDR+1
POP EOJ+4!
U CPTLOG+3, CPTTEST+4
X GETTYPE+5*, GETCAT+4*, GETCAT+6!, GETPAT+3, CPTLOG+1*, CPTTEST+2*, EOJ+4!
>> X1 GETPAT+3*
>> X2 GETPAT+3*
Y GETLOC+3, GETLOC+4, GETTYPE+6, GETCAT+5, GETCAT+6!, GETDATE+2, GETDATE+3, CPTLOG+2, CPTLOG+3, CPTTEST+3
, CPTTEST+4, CPTTEST+5, CPTTEST+6, 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