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

Package: Patient Care Component

Routine: APCDACCR


Information

APCDACCR ; IHS/CMI/LAB - remove accept command from a record ;

Source Information

Source file <APCDACCR.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^DIC  YN^DICN  ^DIE  ^DIR  
Patient Care Component 3 ^APCDSW  ^APCDVDSP  ^APCDVLK  
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDEX  
IHS Patient 1 MOD^AUPNVSIT  
Patient Care Component Reports 1 $$VD^APCLV  

Entry Points

Name Comments DBIA/ICR reference
EOJ ;end of job clean up
GETTYPE ;get type of record to update
GETVISIT ;get visit to edit
GETPAT ;get patient
1 ;
INFORM ;inform user what is going on
3 ;
2 ;
DSPLY ;display selected visit, calls APCDVDSP
MOD ;

External References

Name Field # of Occurrence
^APCDSW 1+4, 2+5, 3+3
^APCDVDSP DSPLY+1
^APCDVLK GETVISIT+3
$$VD^APCLV 2+10
MOD^AUPNVSIT MOD+1
^DIC GETPAT+4
YN^DICN GETPAT+6
^DIE 1+6, 2+7, 3+5
^DIR GETTYPE+2
$$ICDDX^ICDEX 1+8
$$ICDOP^ICDEX 2+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No PATIENT selected!"
  • Line Location: APCDACCR+6
Function Call: WRITE
  • Prompt: !!,"No VISIT selected!"
  • Line Location: APCDACCR+8
Function Call: WRITE
  • Prompt: !!,"No Record Type selected!",!
  • Line Location: APCDACCR+11
Function Call: WRITE
  • Prompt: !!,"This option will allow you to remove the ACCEPT command in a Purpose of Visit",!,"record. The Accept command is used to override an edit in the",!,"IHS Direct Inpatient System.",!!
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTE: The IHS Direct Inpatient System no longer requires"
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"the use of the ACCEPT command so this option is no longer necessary and"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"will be eliminated.",!!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !!,"No POV's for that Visit",!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"You must select which POV should have the ACCEPT command removed.",!
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !!,"No POV selected!",!
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !!,"ACCEPT COMMAND FAILED!! NOTIFY A PROGRAMMER!"
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: !,"Accept command has been removed for POV ",$P($$ICDDX^ICDEX($P(^AUPNVPOV(APCDLOOK,0),U)),U,2),!
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: !!,"DIE FAILED... NOTIFY PROGRAMMER!"
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: !!,"No PROCEDURE's for that Visit",!
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !!,"You must select which PROCEDURE/OPERATION should have the ACCEPT command removed.",!!
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: !!,"No PROCEDURE/OPERATION selected!",!
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: !!,"ACCEPT COMMAND FAILED!! NOTIFY A PROGRAMMER!"
  • Line Location: 2+8
Function Call: WRITE
  • Prompt: !,"Accept command has been removed from PROCEDURE ",$P($$ICDOP^ICDEX($P(^AUPNVPRC(APCDLOOK,0),U),$$VD^APCLV(APCDVSIT),,"I"),U,2),!
  • Line Location: 2+10
Function Call: WRITE
  • Prompt: !!,"DIE FAILED... NOTIFY PROGRAMMER",!,$C(7),$C(7)
  • Line Location: 2+12
Function Call: WRITE
  • Prompt: !!,"No V HOSPITALIZATION record exists for this Visit",!
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!,"No V HOSPITALIZATION selected!",!
  • Line Location: 3+4
Function Call: WRITE
  • Prompt: !!,"ACCEPT COMMAND FAILED!! NOTIFY A PROGRAMMER!"
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: !,"Accept command has been removed from V HOSPITALIZATION.",!
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: !!,"DIE FAILED... NOTIFY PROGRAMMER",!,$C(7),$C(7)
  • Line Location: 3+9
Routine Call
  • DIE
  • Line Location:
    • 1+6
    • 2+7
    • 3+5
Routine Call
  • DIC
  • Line Location:
    • GETPAT+4
Routine Call
  • DIR
  • Line Location:
    • GETTYPE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNVINP - [#9000010.02] Classic Fileman Calls
^AUPNVPOV - [#9000010.07] Classic Fileman Calls
^AUPNVPRC - [#9000010.08] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVINP("AD" 3+1
^AUPNVPOV - [#9000010.07] 1+8
^AUPNVPOV("AD" 1+1
^AUPNVPRC - [#9000010.08] 2+10
^AUPNVPRC("AD" 2+2

Label References

Name Line Occurrences
@( APCDACCR+12
DSPLY APCDACCR+9
EOJ APCDACCR+6, APCDACCR+8, APCDACCR+11, APCDACCR+13
GETPAT APCDACCR+5
GETTYPE APCDACCR+10
GETVISIT APCDACCR+7
INFORM APCDACCR+4
MOD 1+9, 2+11, 3+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+1!, GETPAT+6*
%DT EOJ+1!
APCDCAT EOJ+1!
APCDCLN EOJ+1!
APCDDATE EOJ+1!
APCDLOC EOJ+1!
APCDLOOK EOJ+1!, GETVISIT+1*, GETVISIT+4!, 1+5, 1+6, 1+8, 2+6, 2+7, 2+10, 3+4
, 3+5
>> APCDPARM GETPAT+6
APCDPAT APCDACCR+6, EOJ+1!, GETPAT+3*, GETPAT+7*
APCDPROC APCDACCR+11, APCDACCR+12, EOJ+1!, GETTYPE+1*, GETTYPE+4*
APCDSWCR EOJ+1!, 1+3*, 2+4*, 3+2*
APCDSWD EOJ+1!, 1+3*, 2+4*, 3+2*
APCDSWV EOJ+1!, 1+3*, 2+4*, 3+2*
APCDTYPE EOJ+1!
>> APCDVDSP DSPLY+1*
APCDVLK GETVISIT+2!
APCDVSIT APCDACCR+8, EOJ+1!, GETVISIT+1*, DSPLY+1, 1+1, 1+3, 2+2, 2+4, 2+10, 3+1
, 3+2, MOD+1
AUPNDAYS EOJ+1!, GETPAT+2!
AUPNDOB EOJ+1!, GETPAT+2!
AUPNDOD EOJ+1!, GETPAT+2!
AUPNPAT EOJ+1!, GETPAT+2!
AUPNSEX EOJ+1!, GETPAT+2!
>> AUPNVSIT MOD+1*
DA EOJ+1!, 1+6*!, 2+7*!, 3+5*!
DIC EOJ+1!, GETPAT+4*!
DIC(0 GETPAT+4*
DIE EOJ+1!, 1+6*!, 2+7*!, 3+5*!
DIR GETTYPE+2!
DIR("A" GETTYPE+2*
DIR(0 GETTYPE+2*
>> DIRUT GETTYPE+3
DR EOJ+1!, 1+6*!, 2+7*!, 3+5*!
U GETPAT+6, 1+8, 2+10
X EOJ+1!
Y EOJ+1!, GETTYPE+4, GETPAT+5, GETPAT+7, 1+7, 1+10, 2+8, 2+12, 3+6, 3+9
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