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 |  Marked Items |  All
Print Page as PDF
Routine: APCDELM

Package: Patient Care Component

Routine: APCDELM


Information

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

Source Information

Source file <APCDELM.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Patient Care Component 7 ^APCDALV  GETPAT^APCDEA  ^APCDEIN  ^APCDEKL  EN^APCDEL  EP^APCDKDE  ^APCDVCHK  
VA Fileman 5 ^%DT  ^%DTC  ^DIC  ^DIE  ^DIR  
IHS Patient 2 KILL^AUPNPAT  MOD^AUPNVSIT  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDELMP  

Entry Points

Name Comments DBIA/ICR reference
CLN ;
EN ;EP - called from option
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 ;EP
GETDATE ; GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
^%DT GETDATE+4
^%DTC GETVISIT+7
^APCDALV GETVISIT+1
GETPAT^APCDEA GETPAT+1
^APCDEIN HDR+6
^APCDEKL HDR+1, EOJ+4
EN^APCDEL LM+1
EP^APCDKDE LM+2
^APCDVCHK LM+3
KILL^AUPNPAT EOJ+1
MOD^AUPNVSIT GETVISIT+6
^DIC GETLOC+2, CLN+4
^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+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+5
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: $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
    • 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)
^AUPNVSIT - [#9000010] CLN+1
^DIC(4 - [#4] GETLOC+1
^TMP("APCDEL" EOJ+3!

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %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+4!
>> APCDFLG HDR+7, GETVISIT+2*
APCDHIGH EOJ+2!
APCDI EOJ+2!
APCDJ HDR+3*, HDR+4!
>> APCDLOC GETLOC+1*, GETLOC+4*
>> APCDLVST GETVISIT+4*
APCDNOXV GETVISIT+1*!
>> APCDPAT GETPAT+2, GETVISIT+5
APCDSEL EOJ+2!
APCDTEXT EOJ+2!
>> APCDTPLT HDR+8*
>> APCDTPLT("NAME" HDR+8*
>> APCDTYPE GETTYPE+1*, GETTYPE+6*
APCDVSIT GETVISIT+3, GETVISIT+4, GETVISIT+6, CLN+1, CLN+5!, CLN+8, LM+2, LM+3
APCDX HDR+3*, HDR+4!
>> AUPNDAYS GETVISIT+7*
>> AUPNDOB GETVISIT+7
>> AUPNVSIT GETVISIT+6*
DA GETTYPE+2!, GETCAT+2!, GETVISIT+5*, CLN+8*!
DIC GETLOC+2*!, CLN+4*!
DIC("B" GETLOC+1*
DIC(0 GETLOC+2*, 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!
IOF HDR+2
U GETLOC+1, 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, CLN+6, CLN+7

Marked Items

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