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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APCDEATC

Package: Patient Care Component

Routine: APCDEATC


Information

APCDEATC ; IHS/CMI/LAB - ENTER TRANS CODE TO OUTPATIENT VISIT ;

Source Information

Source file <APCDEATC.m>

Call Graph

Call Graph Total: 22

Package Total Call Graph
Patient Care Component 11 INAC^APCDEA  ^APCDEA3  ^APCDEIN  ^APCDEKL  ^APCDEMDI  ^APCDEQX  ^APCDFCTC  ($$DTC,START)^APCDKDTC  
^APCDVAR  CHKEHR2^APCDVCHK  EN1^APCDVD  
VA Fileman 6 ^%DT  ^%DTC  ^DIC  (FILE,YN)^DICN  ^DIE  ^DIR  
IHS Patient 2 (,KILL)^AUPNPAT  (MOD,VSIT01)^AUPNVSIT  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
RDV
GETMNE ; GET MNEMONIC
MNEPROC ; PROCESS MNEMONICS UNTIL DONE
EOJ ; END OF JOB
GETMNEK ; KILL GETMNE SPECIFIC VARIABLES
GETTYPE ; GET TYPE OF ENCOUNTER
FINDVSIT ; INTERACTIVE MODE
GETVISIT ; GET VISIT
GETPAT ; GET PATIENT
WRITE ; WRITE VISITS FOR SELECT
GENVISIT ; GENERATE NEW VISIT
OPTION ;EP;GET OPTION FROM USER
GATHER ; GATHER VISITS FOR USER TO SELECT
TEXT ;
OPTION2 ; LET USER SELECT OPTION
DISPLAY ; DISPLAY VISIT FOR USER
SELECT ; ALLOW USER TO SELECT, EXIT, OR ADD
HDR ; Write Header

External References

Name Field # of Occurrence
^%DT RDV+2, GENVISIT+4
^%DTC RDV+8
INAC^APCDEA GETPAT+8
^APCDEA3 MNEPROC+6, GETMNE+6
^APCDEIN HDR+5
^APCDEKL EOJ+1
^APCDEMDI GETPAT+9
^APCDEQX GETMNE+7
^APCDFCTC MNEPROC+10
$$DTC^APCDKDTC MNEPROC+9
START^APCDKDTC MNEPROC+9
^APCDVAR HDR+7
CHKEHR2^APCDVCHK MNEPROC+8
EN1^APCDVD DISPLAY+1, DISPLAY+4
^AUPNPAT GENVISIT+1, SELECT+5
KILL^AUPNPAT EOJ+4
MOD^AUPNVSIT RDV+7
VSIT01^AUPNVSIT GENVISIT+5
^DIC GETPAT+4, MNEPROC+3, GETMNE+2
FILE^DICN GENVISIT+12
YN^DICN GETPAT+6
^DIE MNEPROC+1
^DIR GETTYPE+4, OPTION2+6, DISPLAY+2
^XBFMK EOJ+3
EN^XBVK EOJ+1
$$FMTE^XLFDT FINDVSIT+5

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: GETPAT+1
Function Call: READ
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Variable: X
  • Line Location: RDV+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RDV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: MNEPROC+2
Function Call: WRITE
  • Prompt: !!,"Error Occurred. Could not find TC mnemonic!"
  • Line Location: MNEPROC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MNEPROC+13
Function Call: WRITE
  • Prompt: !
  • Line Location: GETMNE+1
Function Call: WRITE
  • Prompt: !!,"Switching to Modify Mode for ONE Mnemonic ONLY!"
  • Line Location: GETMNE+8
Function Call: WRITE
  • Prompt: !!,"Switching back to ENTER Mode!"
  • Line Location: GETMNE+8
Function Call: WRITE
  • Prompt: !,"Visit NOT Created!"
  • Line Location: GENVISIT+11
Function Call: WRITE
  • Prompt: !!,"No OUTPATIENT Visits for ",$P(^DPT(APCDPAT,0),U),"on ",$$FMTE^XLFDT(APCDDATE),".",!
  • Line Location: FINDVSIT+5
Function Call: WRITE
  • Prompt: !!,"PATIENT: ",$P(^DPT(APCDPAT,0),U)," has VISITs, same date, location.",!
  • Line Location: OPTION2+1
Function Call: WRITE
  • Prompt: !,"1 Exit without selecting VISIT"
  • Line Location: OPTION2+2
Function Call: WRITE
  • Prompt: !,"2 Display one of the existing VISITs"
  • Line Location: OPTION2+3
Function Call: WRITE
  • Prompt: !!,"Or select one of the following existing VISITs:",!
  • Line Location: OPTION2+4
Function Call: WRITE
  • Prompt: !,APCDAI," TIME: ",APCDAT," TYPE: ",$P(APCDAX,U,3)," CATEGORY: ",$P(APCDAX,U,7)," CLINIC: ",$S($P(APCDAX,U,8)]"":$E($P(^DIC(40.7,$P(APCDAX,U,8),0),U),1,13),1:"<NONE>"),?72,"DEC: ",$S($P(APCDAX,U,9):$P(APCDAX,U,9),1:0)
  • Line Location: WRITE+3
Routine Call
  • DIE
  • Line Location:
    • MNEPROC+1
Routine Call
  • DIC
  • Line Location:
    • GETPAT+4
    • MNEPROC+3
    • GETMNE+2
Routine Call
  • DIR
  • Line Location:
    • GETTYPE+4
    • OPTION2+6
    • DISPLAY+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNVSIT - [#9000010] Classic Fileman Calls
^APCDTKW - [#9001001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDSITE - [#9001001.2] GETPAT+3, GETTYPE+3
^AUPNVSIT - [#9000010] RDV+7, GATHER+1, SELECT+5, WRITE+1
^AUPNVSIT("AA" FINDVSIT+4
^DIC(40.7 - [#40.7] WRITE+3
^DPT - [#2] FINDVSIT+5, OPTION2+1

Label References

Name Line Occurrences
DISPLAY OPTION2+9
EOJ HDR+10
FINDVSIT RDV+6, FINDVSIT+7
GATHER FINDVSIT+4
GETMNE MNEPROC+8, GETMNE+8
GETMNEK MNEPROC+11
GETPAT HDR+9
GETTYPE GENVISIT+10
GETVISIT HDR+9
MNEPROC HDR+9
OPTION SELECT+3
OPTION2 OPTION+1
RDV RDV, RDV+3
SELECT FINDVSIT+6
WRITE OPTION2+5

Naked Globals

Name Field # of Occurrence
^(0 RDV+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GETPAT+6*, EOJ+2!
%1 EOJ+2!
%DT RDV+2*, GENVISIT+4*, EOJ+2!
A EOJ+2!
>> APCDAC FINDVSIT+3*, GATHER+5*, SELECT+1, OPTION2+6, DISPLAY+1, DISPLAY+2
>> APCDADF SELECT+1*, OPTION2+6
>> APCDAFLG GENVISIT+4*, GENVISIT+6*, GENVISIT+13*, SELECT+4*
>> APCDAFLG("ERR" GENVISIT+4*, GENVISIT+6*, GENVISIT+13*
>> APCDAI FINDVSIT+4*, GATHER+1, GATHER+5, OPTION2+5*, WRITE+3
>> APCDAL FINDVSIT+4*, OPTION+1*
APCDALV FINDVSIT+1!, FINDVSIT+5
APCDALV( GATHER+5*, OPTION2+5, OPTION2+11, DISPLAY+1, DISPLAY+4
APCDALV(4 FINDVSIT+7
>> APCDAO FINDVSIT+7, SELECT+2*, SELECT+4, OPTION+1, OPTION2+7*, OPTION2+10*, OPTION2+11*
APCDAT WRITE+2*, WRITE+3, WRITE+4!
>> APCDAVD FINDVSIT+2*, FINDVSIT+4*
>> APCDAVDC FINDVSIT+2*, FINDVSIT+4
>> APCDAX GATHER+1*, GATHER+2, GATHER+4, OPTION2+5*, WRITE+1*, WRITE+2, WRITE+3
>> APCDCAT RDV+7*, GENVISIT+8*
>> APCDCLN RDV+7*
>> APCDDATE GETVISIT+1*, RDV+5*, RDV+7*, RDV+8, GENVISIT+3*, GENVISIT+4, GENVISIT+6, GENVISIT+12, GENVISIT+13, FINDVSIT+2
, FINDVSIT+5
>> APCDDOB GENVISIT+2*
>> APCDDOD GENVISIT+2*
APCDEQX MNEPROC+8, GETMNE+7, GETMNEK+1!
>> APCDFLG HDR+6
APCDFV MNEPROC+10*!
APCDJ HDR+2*, HDR+3!
>> APCDLOC RDV+7*, GENVISIT+7*
APCDLOOK GENVISIT+12!
>> APCDMNE MNEPROC+5*, GETMNE+4*
>> APCDMNE("NAME" MNEPROC+5*, GETMNE+4*
APCDMOD GETMNE+5!, GETMNE+8!
>> APCDMODE GETMNE+8*
APCDMPQ MNEPROC+7*, MNEPROC+8, MNEPROC+12!, GETMNE+3*, GETMNE+7*
>> APCDNOXV HDR+8*
>> APCDPARM HDR+7, GETPAT+6, MNEPROC+10
>> APCDPAT HDR+8*, HDR+9, GETPAT+2*, GETPAT+7*, GETPAT+8*, RDV+7*, MNEPROC+1, GENVISIT+1, FINDVSIT+4, FINDVSIT+5
, OPTION2+1
APCDREGU MNEPROC+12!
>> APCDSEX GENVISIT+2*
>> APCDTYPE RDV+7*, GENVISIT+11, GETTYPE+1*, GETTYPE+6*
APCDVLK GETMNE+8*!
APCDVSIT HDR+9, GETVISIT+1*, RDV+7, RDV+8, MNEPROC+9, MNEPROC+10, GETMNE+8, GETMNEK+1!, GENVISIT+14*, SELECT+5
, OPTION2+11*, DISPLAY+1*, DISPLAY+4*
APCDVSIT("NEW" GENVISIT+15*
APCDX HDR+2*, HDR+3!, GETMNEK+1!
>> AUPNDAYS RDV+8*
>> AUPNDOB RDV+8, GENVISIT+2
>> AUPNDOD GENVISIT+2
>> AUPNLK("INAC" GETPAT+3*
>> AUPNSEX GENVISIT+2
>> AUPNVSIT RDV+7*
DA MNEPROC+1*, GETTYPE+2!
DD GENVISIT+12!
DI EOJ+2!
DIC GETPAT+4*!, MNEPROC+3*!, GETMNE+2*, GENVISIT+12*!
DIC("A" GETMNE+2*!
DIC("DR" GENVISIT+12*
DIC("S" GETMNE+2*!
DIC(0 GETPAT+4*, MNEPROC+3*, GETMNE+2*, GENVISIT+12*
>> DIE MNEPROC+1*
DIGG EOJ+2!
DIPGM EOJ+2!
DIR GETTYPE+2!, GETTYPE+4!, OPTION2+6!, DISPLAY+2!
DIR("?" OPTION2+6*, DISPLAY+2*
DIR("A" GETTYPE+4*, OPTION2+6*, DISPLAY+2*
DIR("B" GETTYPE+3*, OPTION2+6*
DIR(0 GETTYPE+4*, OPTION2+6*, DISPLAY+2*
DIROUT GETTYPE+2!
DIRUT GETTYPE+2!, GETTYPE+5, OPTION2+7, DISPLAY+3
DISYS EOJ+2!
DLAYGO GENVISIT+12*!
DO GENVISIT+12!
DQ EOJ+2!
>> DR MNEPROC+1*
DTIME RDV
DTOUT GETTYPE+2!
DUOUT GETTYPE+2!
DUZ("AG" GETPAT+9
DUZ(2 GETPAT+3, GENVISIT+7, GETTYPE+3
DX EOJ+2!
IOF HDR+1
IOY EOJ+2!
POP EOJ+2!
S EOJ+2!
U GETPAT+3, GETPAT+6, RDV+7, MNEPROC+5, MNEPROC+10, GETMNE+4, GETTYPE+3, FINDVSIT+5, GATHER+2, GATHER+4
, SELECT+5, OPTION2+1, WRITE+3
X GETPAT+8, RDV*, RDV+1, RDV+3, RDV+8, MNEPROC+3*, GENVISIT+4*, GENVISIT+6, GENVISIT+12*, GETTYPE+5*
, EOJ+2!
>> X1 RDV+8*
>> X2 RDV+8*
Y GETPAT+5, GETPAT+7, RDV+4!, RDV+5, MNEPROC+4, MNEPROC+5, GETMNE+3, GETMNE+4, GENVISIT+1*!, GENVISIT+4
, GENVISIT+13, GENVISIT+14, GETTYPE+6, EOJ+2!, SELECT+5*!, OPTION2+8*, OPTION2+9, OPTION2+10, OPTION2+11, DISPLAY+4
>> ZTQUEUED GENVISIT+12
>> ZTSK GENVISIT+12

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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All