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

Package: Patient Care Component

Routine: APCDELMP


Information

APCDELMP ; IHS/CMI/LAB - prcess visit in list man ;

Source Information

Source file <APCDELMP.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Patient Care Component 9 ^APCDALV  (GETPAT,GETVISIT)^APCDEAP  ^APCDECC  EN^APCDEFL  ^APCDEIN  (,EN1,EN2)^APCDEKL  LM^APCDELM  ^APCDEMDI  
EP^APCDKDE  
VA Fileman 6 ^%DT  ^%DTC  ^DIC  YN^DICN  ^DIE  ^DIR  
IHS Patient 2 KILL^AUPNPAT  MOD^AUPNVSIT  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
CLN ;
EN ;PEP - called from option - called from TIU
HDR ; Write Header
PROCESS ;process each visit
EOJ ; END OF JOB
GETTYPE ; GET TYPE OF ENCOUNTER
GETPAT ; GET PATIENT
GETVISIT ;
GETLOC ; GET LOCATION OF ENCOUNTER
GETCAT ; GET SERVICE CATEGORY
TEXT ;
LM ;
GETDATE ; GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
^%DT GETDATE+4
^%DTC GETVISIT+7
^APCDALV GETVISIT+1
GETPAT^APCDEAP HDR+11
GETVISIT^APCDEAP HDR+11
^APCDECC GETPAT+7
EN^APCDEFL LM+1
^APCDEIN HDR+7
^APCDEKL EOJ+4
EN1^APCDEKL HDR+1
EN2^APCDEKL HDR+2, EOJ+4
LM^APCDELM HDR+11
^APCDEMDI GETPAT+7
EP^APCDKDE LM+2
KILL^AUPNPAT EOJ+1
MOD^AUPNVSIT GETVISIT+6
^DIC GETLOC+2, GETPAT+3, CLN+4
YN^DICN GETPAT+5
^DIE GETVISIT+5, CLN+8
^DIR GETTYPE+4, GETCAT+4
^XBFMK EOJ+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?80-$L(APCDX)\2,APCDX
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+6
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: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: $C(7),!,"VISIT date not valid for current patient!",!
  • Line Location: GETVISIT+2
Function Call: WRITE
  • Prompt: !!,"No visit selected."
  • Line Location: GETVISIT+3
Function Call: WRITE
  • Prompt: !!,"Please enter the clinic this patient is attending.",!
  • Line Location: CLN+2
Function Call: WRITE
  • Prompt: !,"Clinic is Required."
  • Line Location: CLN+5
Routine Call
  • DIE
  • Line Location:
    • GETVISIT+5
    • CLN+8
Routine Call
  • DIC
  • Line Location:
    • GETLOC+2
    • GETPAT+3
    • CLN+4
Routine Call
  • DIR
  • Line Location:
    • GETTYPE+4
    • GETCAT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNVSIT - [#9000010] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDSITE - [#9001001.2] GETPAT+7
^AUPNVSIT - [#9000010] CLN+1
^DIC(4 - [#4] GETLOC+1
^TMP("APCDEF" EOJ+3!

Label References

Name Line Occurrences
CLN CLN+6
EOJ HDR+12
GETCAT GETDATE+3
GETDATE GETDATE+4, GETDATE+5, CLN+5
GETLOC GETTYPE+5
GETTYPE GETCAT+5
LM CLN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GETPAT+5*
>> %DT GETDATE+4*
>> APCDAFLG GETVISIT+2
APCDANS EOJ+2!
APCDC EOJ+2!
>> APCDCAT GETCAT+1*, GETCAT+6*
>> APCDCLN CLN+3*, CLN+7*, CLN+8
APCDCRIT EOJ+2!
APCDCUT EOJ+2!
APCDDATE GETDATE+1*, GETDATE+6*, GETVISIT+7, CLN+5!
>> APCDDEFL GETLOC+1
>> APCDDEFS GETCAT+3
>> APCDDEFT GETTYPE+3
APCDDISP EOJ+2!
APCDEXIT HDR+5!
>> APCDFLG HDR+8, GETVISIT+2*
APCDHIGH EOJ+2!
APCDI EOJ+2!
APCDJ HDR+4*, HDR+5!
>> APCDLOC GETLOC+1*, GETLOC+4*
>> APCDLVST GETVISIT+4*
APCDNOXV GETVISIT+1*!
>> APCDPARM GETPAT+5
>> APCDPAT HDR+10*, HDR+11, GETPAT+2*, GETPAT+6*, GETVISIT+5
APCDSEL EOJ+2!
APCDTEXT EOJ+2!
>> APCDTPLT HDR+9*
>> APCDTPLT("NAME" HDR+9*
>> APCDTYPE GETTYPE+1*, GETTYPE+6*
APCDVSIT HDR+11, GETVISIT+3, GETVISIT+4, GETVISIT+6, CLN+1, CLN+5!, CLN+8, LM+2
APCDX HDR+4*, HDR+5!
>> AUPNDAYS GETVISIT+7*
>> AUPNDOB GETVISIT+7
AUPNVSIT HDR+11!, GETVISIT+6*
DA GETTYPE+2!, GETCAT+2!, GETVISIT+5*, CLN+8*!
DIC GETLOC+2*!, GETPAT+3*!, CLN+4*!
DIC("A" CLN+4*
DIC("B" GETLOC+1*
DIC(0 GETLOC+2*, GETPAT+3*, CLN+4*
DIE GETVISIT+5*, CLN+8*!
DIR GETTYPE+2!, GETTYPE+4!, GETCAT+2!, GETCAT+4!
DIR("A" GETTYPE+4*, GETCAT+4*
DIR("B" GETTYPE+3*, GETCAT+3*
DIR(0 GETTYPE+4*, GETCAT+4*
DIROUT GETTYPE+2!, GETCAT+2!
DIRUT GETTYPE+2!, GETTYPE+5, GETCAT+2!, GETCAT+5
DR GETVISIT+5*, CLN+8*!
DT GETDATE+5
DTIME GETDATE+2
DTOUT GETTYPE+2!, GETCAT+2!
DUOUT GETTYPE+2!, GETCAT+2!
DUZ("AG" GETPAT+7
DUZ(2 GETPAT+7
IOF HDR+3
U GETLOC+1, GETPAT+5, CLN+1
X GETTYPE+6, GETCAT+6, GETDATE+2*, GETDATE+3, GETDATE+5!, GETVISIT+7, CLN+5
>> X1 GETVISIT+7*
>> X2 GETVISIT+7*
>> Y GETLOC+3, GETLOC+4, GETDATE+4, GETDATE+5, GETDATE+6, GETPAT+4, GETPAT+6, CLN+6, CLN+7

Marked Items

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