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 |  All
Print Page as PDF
Routine: APCDCAF3

Package: Patient Care Component

Routine: APCDCAF3


Information

APCDCAF3 ; IHS/CMI/LAB - MENTAL HLTH ROUTINE 16-AUG-1994 ;

Source Information

Source file <APCDCAF3.m>

Call Graph

Call Graph Total: 30

Package Total Call Graph
Patient Care Component 19 $$ERRORCHK^APCDCAF  $$ALLRET^APCDCAF1  BACK^APCDCAF2  RNU^APCDCAF4  ($$FINDPEND,EN)^APCDCAF6  MNEPROC^APCDEAP  ^APCDEIN  (EN,EN1,EN2)^APCDEKL  
PROCESS^APCDEM  START^APCDEWHO  EP^APCDKDE  EP1^APCDKUL  EN^APCDRPOV  ^APCDVD  UPDLOG^APCDVDEL  ^APCDVDLT  
^APCDVDSP  ^APCDVLK  EN1^APCDVMRG  
VA Fileman 5 ^%DTC  (FILE,YN)^DICN  ^DIE  IX1^DIK  ^DIR  
IHS Patient 2 (,KILL)^AUPNPAT  MOD^AUPNVSIT  
IHS VA Utilities 2 $$VALI^XBDIQ1  ^XBFMK  
Kernel 1 $$NOW^XLFDT  
Registration 1 FULL^VALM1  

Entry Points

Name Comments DBIA/ICR reference
DISP ;
MOVEVDX ;
RESEQ ;EP
MODIFY ;
BACK ;go back to listman
EOP ;EP - End of page.
DEL ;EP
APPENDX ;
APPEND ;
MERGEX ;
ADDCANT ;
GETVISIT ;
UPD1 ;
UPD0 ;EP
MOVEVD ;EP
MODIFYX ;
UPDATE ;EP
MERGE ;EP
R ;
DELX ;
RESEQX ;
DISPX ;
MERGEDD ;EP
MERGEDDX ;
UPDATEX ;
DELETE ; DELETE VISIT AND RELATED V FILES

External References

Name Field # of Occurrence
^%DTC MODIFY+16, APPEND+16
$$ERRORCHK^APCDCAF UPD1+6
$$ALLRET^APCDCAF1 DEL+11
BACK^APCDCAF2 BACK+1
RNU^APCDCAF4 UPD1+9
$$FINDPEND^APCDCAF6 R+2
EN^APCDCAF6 R+1
MNEPROC^APCDEAP APPEND+22
^APCDEIN MODIFY+17, APPEND+17
EN^APCDEKL MODIFYX+2, APPENDX+2, RESEQX+2
EN1^APCDEKL MERGEX+2, MERGEDDX+2, MOVEVDX+2
EN2^APCDEKL MODIFYX+3, APPENDX+3, MERGEX+3, MERGEDDX+3, MOVEVDX+3, RESEQX+3
PROCESS^APCDEM MODIFY+22
START^APCDEWHO MODIFY+18, APPEND+18
EP^APCDKDE DISP+9, MODIFY+22, APPEND+22
EP1^APCDKUL MOVEVD+21
EN^APCDRPOV RESEQ+8
^APCDVD DISP+9
UPDLOG^APCDVDEL DELETE+7
^APCDVDLT DELETE+8
^APCDVDSP MERGE+23, MERGE+25, DEL+10, MERGEDD+21, MERGEDD+23
^APCDVLK GETVISIT+3
EN1^APCDVMRG MERGE+26, MERGEDD+24
^AUPNPAT MODIFY+9, APPEND+9, MERGE+12, MERGEDD+10, MOVEVD+12
KILL^AUPNPAT DISPX+2, MODIFYX+4, APPENDX+4, MERGEX+4, DELX+2, MERGEDDX+4, MOVEVDX+4, RESEQX+4
MOD^AUPNVSIT MODIFY+20, APPEND+20, UPDATE+8
FILE^DICN UPD0+3
YN^DICN DELETE+1
^DIE UPD1+2, UPD1+7, UPD1+8, DELETE+4, DELETE+5
IX1^DIK ADDCANT+2
^DIR DISP+3, MODIFY+4, MODIFY+23, APPEND+4, APPEND+23, UPDATE+4, EOP+5, MERGE+4, DEL+4, MERGEDD+4
, MOVEVD+4, RESEQ+4, RESEQ+10
FULL^VALM1 MODIFY+1, APPEND+1, UPDATE+1, MERGE+1, MERGEDD+1, MOVEVD+1, RESEQ+1
$$VALI^XBDIQ1 R+2
^XBFMK DISP+8, MODIFY+21, APPEND+21, UPD1+1, UPD1+3, UPDATEX+2, DEL+8, RESEQ+9
$$NOW^XLFDT UPD0+2, UPD0+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: MODIFY+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: MODIFY+6
Function Call: WRITE
  • Prompt: !!,"error in data entry modify mode"
  • Line Location: MODIFY+17
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: APPEND+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: APPEND+6
Function Call: WRITE
  • Prompt: !!,"error in data entry APPEND mode"
  • Line Location: APPEND+17
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: UPDATE+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: UPDATE+6
Function Call: WRITE
  • Prompt: !!,"updating status failed"
  • Line Location: UPD0+4
Function Call: WRITE
  • Prompt: !!,"You must enter a status"
  • Line Location: UPD1+5
Function Call: WRITE
  • Prompt: !!,"This visit has the following error: ",APCDERR,!,"You cannot mark a visit as Reviewed/Completed if there is an error."
  • Line Location: UPD1+7
Function Call: WRITE
  • Prompt: !!,"A chart Deficiency reason is required."
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !!,"adding entry to chart audit notes failed."
  • Line Location: R+8
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: MERGE+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: MERGE+6
Function Call: WRITE
  • Prompt: !!,"Patient only has 1 visit on that day, cannot do a merge."
  • Line Location: MERGE+11
Function Call: WRITE
  • Prompt: !!,"Select 'From' visit.",!
  • Line Location: MERGE+13
Function Call: WRITE
  • Prompt: !!,"Select 'To' visit.",!
  • Line Location: MERGE+17
Function Call: WRITE
  • Prompt: !!,"'From' and 'To' the same. Bye!"
  • Line Location: MERGE+20
Function Call: WRITE
  • Prompt: !!,"Cannot merge from a visit that has a Claim associate with it."
  • Line Location: MERGE+21
Function Call: WRITE
  • Prompt: !!,"*** FROM VISIT ***"
  • Line Location: MERGE+22
Function Call: WRITE
  • Prompt: !!,"*** TO VISIT ***"
  • Line Location: MERGE+24
Function Call: WRITE
  • Prompt: !!,"You do not have the security key to delete a Visit.",!,"Please see your supervisor or program manager.",!
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !!,"All Notes must be retracted before you can delete this visit."
  • Line Location: DEL+11
Function Call: WRITE
  • Prompt: !!,"THE ABOVE VISIT AND RELATED V FILE ENTRIES WILL BE REMOVED FOREVER !!!"
  • Line Location: DEL+12
Function Call: WRITE
  • Prompt: !,"Sure you want to delete"
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: MERGEDD+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: MERGEDD+6
Function Call: WRITE
  • Prompt: !!,"Select 'From' visit.",!
  • Line Location: MERGEDD+11
Function Call: WRITE
  • Prompt: !!,"Select 'To' visit.",!
  • Line Location: MERGEDD+15
Function Call: WRITE
  • Prompt: !!,"'From' and 'To' the same. Bye!"
  • Line Location: MERGEDD+18
Function Call: WRITE
  • Prompt: !!,"Cannot merge from a visit that has a Claim associate with it."
  • Line Location: MERGEDD+19
Function Call: WRITE
  • Prompt: !!,"*** FROM VISIT ***"
  • Line Location: MERGEDD+20
Function Call: WRITE
  • Prompt: !!,"*** TO VISIT ***"
  • Line Location: MERGEDD+22
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: MOVEVD+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: MOVEVD+6
Function Call: WRITE
  • Prompt: !!,"Patient only has 1 visit on that day, cannot move data."
  • Line Location: MOVEVD+11
Function Call: WRITE
  • Prompt: !!,"Select 'From' visit.",!
  • Line Location: MOVEVD+13
Function Call: WRITE
  • Prompt: !!,"Select 'To' visit.",!
  • Line Location: MOVEVD+17
Function Call: WRITE
  • Prompt: !!,"'From' and 'To' the same. Bye!"
  • Line Location: MOVEVD+20
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: RESEQ+5
Function Call: WRITE
  • Prompt: !,"No VISIT selected."
  • Line Location: RESEQ+6
Routine Call
  • DIE
  • Line Location:
    • UPD1+2
    • UPD1+7
    • UPD1+8
    • DELETE+4
    • DELETE+5
Routine Call
  • DIR
  • Line Location:
    • DISP+3
    • MODIFY+4
    • MODIFY+23
    • APPEND+4
    • APPEND+23
    • UPDATE+4
    • EOP+5
    • MERGE+4
    • DEL+4
    • MERGEDD+4
    • MOVEVD+4
    • RESEQ+4
    • RESEQ+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls
^AUPNVCA - [#9000010.45] Classic Fileman Calls
^AUPNCANT - [#9000095] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSBITMS(9002302 MERGE+21, MERGEDD+19
^APCDSITE - [#9001001.2] R+2
^AUPNCANT - [#9000095] ADDCANT+1*
^AUPNVCA - [#9000010.45] UPD1+4
^AUPNVSIT - [#9000010] MODIFY+8, MODIFY+11, MODIFY+12, MODIFY+13, MODIFY+14, MODIFY+15, APPEND+8, APPEND+11, APPEND+12, APPEND+13
, APPEND+14, APPEND+15, UPD0+3, ADDCANT+1, MERGE+8, MERGE+16, DELETE+5, MERGEDD+9, MOVEVD+8, MOVEVD+16
^AUPNVSIT("AA" MERGE+9, MERGE+10, MOVEVD+9, MOVEVD+10
^TMP("APCDCAF OP" DISP+6, MODIFY+7, APPEND+7, UPDATE+7, MERGE+7, DEL+7, MERGEDD+7, MOVEVD+7, RESEQ+7
^XUSEC("APCDZDELETEVISIT" DEL+1

Label References

Name Line Occurrences
APPENDX APPEND+5, APPEND+6, APPEND+17, APPEND+24, APPEND+25
BACK DISPX+3, MODIFYX+5, APPENDX+5, UPDATEX+4, MERGEX+5, DELX+3, MERGEDDX+5, MOVEVDX+5, RESEQX+5
DELX DEL+1, DEL+5, DEL+6, DEL+11, DELETE+3
DISPX DISP+4, DISP+5
EOP DISP+4, DISP+5, MODIFY+5, MODIFY+6, MODIFY+17, APPEND+5, APPEND+6, APPEND+17, UPDATE+5, UPDATE+6
, UPD0+4, MERGE+5, MERGE+6, MERGE+11, MERGE+20, DEL+5, DEL+6, DEL+11, MERGEDD+5, MERGEDD+6
, MERGEDD+18, MOVEVD+5, MOVEVD+6, MOVEVD+11, MOVEVD+20, RESEQ+5, RESEQ+6
GETVISIT MERGE+14, MERGE+18, MERGEDD+12, MERGEDD+16, MOVEVD+14, MOVEVD+18
MERGEDDX MERGEDD+5, MERGEDD+6, MERGEDD+13, MERGEDD+17, MERGEDD+18
MERGEX MERGE+5, MERGE+6, MERGE+11, MERGE+15, MERGE+19, MERGE+20, MERGE+21, MERGEDD+19
MODIFYX MODIFY+5, MODIFY+6, MODIFY+17, MODIFY+24, MODIFY+25
MOVEVDX MOVEVD+5, MOVEVD+6, MOVEVD+11, MOVEVD+15, MOVEVD+19, MOVEVD+20
R R+2
RESEQX RESEQ+5, RESEQ+6, RESEQ+11, RESEQ+12
UPD0 MODIFY+26, APPEND+26, RESEQ+13
UPD1 UPD1+5, UPD1+7
UPDATEX UPDATE+5, UPDATE+6, UPD0+4, UPD1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DELETE+1*
>> %Y DELETE+1*, DELETE+2, DELETE+3
APCDCAF DISP+9*, DISPX+1!, MODIFY+22*, MODIFYX+1!, APPEND+22*, APPENDX+1!, MERGE+26*, MERGEX+1!, DELX+1!, MERGEDD+24*
, MERGEDDX+1!, MOVEVDX+1!, RESEQX+1!
APCDCAFV DISP+9*, DISPX+1!, MODIFY+22*, MODIFYX+1!, APPEND+22*, DELX+1!
APCDCAR UPD1+4*, UPD1+5, UPD1+7, UPD1+8, UPD1+9, UPDATEX+3!
>> APCDCAT MODIFY+12*, APPEND+12*
>> APCDCLN MODIFY+15*, APPEND+15*
APCDCVA UPDATEX+3!
>> APCDDATE MODIFY+11*, MODIFY+16, APPEND+11*, APPEND+16
>> APCDERR UPD1+6*, UPD1+7
>> APCDFLG MODIFY+17*, APPEND+17*
>> APCDIDT MERGE+9*, MOVEVD+9*
>> APCDLOC MODIFY+14*, APPEND+14*
APCDLOOK GETVISIT+2*, GETVISIT+4, GETVISIT+5!
>> APCDMODE MODIFY+19*, APPEND+19*
>> APCDNOXV APPEND+19*
APCDPAT MODIFY+8*, MODIFYX+1!, APPEND+8*, APPENDX+1!, MERGE+8*, MERGE+9, MERGE+10, MERGE+12, MERGEX+1!, MERGEDD+9*
, MERGEDD+10, MERGEDDX+1!, MOVEVD+8*, MOVEVD+9, MOVEVD+10, MOVEVD+12, MOVEVDX+1!, RESEQX+1!
>> APCDRCNT DISP+2, MODIFY+3, APPEND+3, UPDATE+3, MERGE+3, DEL+3, MERGEDD+3, MOVEVD+3, RESEQ+3
>> APCDTYPE MODIFY+13*, APPEND+13*
>> APCDVCA UPD0+6*, UPD1+2, UPD1+4, UPD1+7
APCDVDLT DELETE+8*, DELX+1!
>> APCDVDSP MERGE+23*, MERGE+25*, DEL+10*, MERGEDD+21*, MERGEDD+23*
>> APCDVLDT MERGE+8*, MERGE+9, MERGE+16*, MOVEVD+8*, MOVEVD+9, MOVEVD+16*
APCDVLK MODIFY+10*, APPEND+10*, GETVISIT+1!
APCDVMF MERGE+15, MERGE+16, MERGE+20, MERGE+21, MERGE+23, MERGEX+1!, MERGEDD+13, MERGEDD+18, MERGEDD+19, MERGEDD+21
, MERGEDDX+1!, MOVEVD+15, MOVEVD+16, MOVEVD+20, MOVEVDX+1!
APCDVMT MERGE+19, MERGE+20, MERGE+25, MERGEX+1!, MERGEDD+17, MERGEDD+18, MERGEDD+23, MERGEDDX+1!, MOVEVD+19, MOVEVD+20
, MOVEVDX+1!
APCDVSIT DISP+6*, DISP+9*, DISPX+1!, MODIFY+7*, MODIFY+8, MODIFY+10, MODIFY+11, MODIFY+12, MODIFY+13, MODIFY+14
, MODIFY+15, MODIFY+18, MODIFY+20, MODIFY+22*, MODIFYX+1!, APPEND+7*, APPEND+8, APPEND+10, APPEND+11, APPEND+12
, APPEND+13, APPEND+14, APPEND+15, APPEND+18, APPEND+20, APPEND+22*, APPENDX+1!, UPDATE+7*, UPD0+3, UPD1+6
, UPD1+8, R+1, R+2, UPDATEX+3!, ADDCANT+1, ADDCANT+2, MERGE+7*, MERGE+8, MERGEX+1!, DEL+7*
, DEL+10, DEL+11, DELETE+4, DELETE+5, DELETE+7, DELETE+8, DELX+1!, MERGEDD+7*, MERGEDD+9, MERGEDDX+1!
, MOVEVD+7*, MOVEVD+8, MOVEVDX+1!, RESEQ+7*, RESEQ+8, RESEQX+1!
>> APCDVV MERGE+14*, MERGE+18*, GETVISIT+4, MERGEDD+12*, MERGEDD+16*, MOVEVD+14*, MOVEVD+18*
AUPNDAYS MODIFY+16*, MODIFYX+1!, APPEND+16*, APPENDX+1!, MERGEX+1!, MERGEDDX+1!, MOVEVDX+1!, RESEQX+1!
>> AUPNDOB MODIFY+16, APPEND+16
AUPNVSIT MODIFY+20*, MODIFYX+1!, APPEND+20*, APPENDX+1!, MERGEX+1!, MERGEDDX+1!, MOVEVDX+1!, RESEQX+1!
>> C MERGE+9*, MERGE+10*, MERGE+11, MOVEVD+9*, MOVEVD+10*, MOVEVD+11
D0 UPD0+1!, UPD0+5!
DA MODIFY+23!, APPEND+23!, UPD0+6*, UPD1+2*!, UPD1+7*, UPD1+8*!, ADDCANT+2*, DELETE+4*!, DELETE+5*!, RESEQ+10!
DD UPD0+1!, UPD0+5!
DFOUT EOP+4!
DIADD UPD0+2*, UPD0+5!, UPDATEX+1!
DIC UPD0+1!, UPD0+2*, UPD0+5!
DIC("DR" UPD0+3*
DIC(0 UPD0+2*
DIE UPD1+2*!, UPD1+7*, UPD1+8*!, DELETE+4*!, DELETE+5*!
>> DIK ADDCANT+2*
DIR DISP+1!, DISP+3!, DISPX+1!, MODIFY+2!, MODIFY+4!, MODIFY+23!, APPEND+2!, APPEND+4!, APPEND+23!, UPDATE+2!
, UPDATE+4!, EOP+3~, MERGE+2!, MERGE+4!, DEL+2!, DEL+4!, DELX+1!, MERGEDD+2!, MERGEDD+4!, MOVEVD+2!
, MOVEVD+4!, RESEQ+2!, RESEQ+4!, RESEQ+10!
DIR("A" DISP+2*, MODIFY+3*, MODIFY+23*, APPEND+3*, APPEND+23*, UPDATE+3*, EOP+5*, MERGE+3*, DEL+3*, MERGEDD+3*
, MOVEVD+3*, RESEQ+3*, RESEQ+10*
DIR("B" MODIFY+23*, APPEND+23*, RESEQ+10*
DIR(0 DISP+2*, MODIFY+3*, MODIFY+23*, APPEND+3*, APPEND+23*, UPDATE+3*, EOP+5*, MERGE+3*, DEL+3*, MERGEDD+3*
, MOVEVD+3*, RESEQ+3*, RESEQ+10*
DIRUT DISP+3*, DISP+5, DISPX+1!, MODIFY+4*, MODIFY+6, MODIFY+24, APPEND+4*, APPEND+6, APPEND+24, UPDATE+4*
, UPDATE+6, EOP+4!, MERGE+4*, MERGE+6, DEL+4*, DEL+6, DELX+1!, MERGEDD+4*, MERGEDD+6, MOVEVD+4*
, MOVEVD+6, RESEQ+4*, RESEQ+6, RESEQ+11
DLAYGO UPD0+2*, UPD0+5!, UPDATEX+1!
DLOUT EOP+4!
DO UPD0+1!
DR UPD1+2*!, UPD1+7*, UPD1+8*!, MERGE+23!, MERGE+25!, DELETE+4*!, DELETE+5*!, MERGEDD+21!, MERGEDD+23!
DT UPD1+8
DTOUT EOP+4!
DUOUT DISP+3, DISPX+1!, MODIFY+4, APPEND+4, UPDATE+4, EOP+4!, MERGE+4, DEL+4, DELX+1!, MERGEDD+4
, MOVEVD+4, RESEQ+4
DUZ UPD0+3, DEL+1
DUZ(2 R+2
IOST EOP+1
U MODIFY+8, MODIFY+11, MODIFY+12, MODIFY+13, MODIFY+14, MODIFY+15, APPEND+8, APPEND+11, APPEND+12, APPEND+13
, APPEND+14, APPEND+15, UPD0+3, UPD1+4, R+2, ADDCANT+1, MERGE+8, DELETE+5, MERGEDD+9, MOVEVD+8
>> V MERGE+10*, MOVEVD+10*
X MODIFY+16, MODIFYX+1!, APPEND+16, APPENDX+1!, UPD0+2*, MERGE+9*, MERGE+10, MERGEX+1!, MERGEDDX+1!, MOVEVD+9*
, MOVEVD+10, MOVEVDX+1!, RESEQX+1!
>> X1 MODIFY+16*, APPEND+16*
>> X2 MODIFY+16*, APPEND+16*
Y DISP+4, DISP+6, DISPX+1!, MODIFY+5, MODIFY+7, MODIFY+8*, MODIFY+25, MODIFYX+1!, APPEND+5, APPEND+7
, APPEND+8*, APPEND+25, APPENDX+1!, UPDATE+5, UPDATE+7, UPD0+4, UPD0+6, MERGE+5, MERGE+7, MERGE+12*
, MERGEX+1!, DEL+5, DEL+7, DELX+1!, MERGEDD+5, MERGEDD+7, MERGEDD+10*, MERGEDDX+1!, MOVEVD+5, MOVEVD+7
, MOVEVD+12*, MOVEVDX+1!, RESEQ+5, RESEQ+7, RESEQ+12, RESEQX+1!
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 |  All