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

Package: Patient Care Component

Routine: APCDRPOV


Information

APCDRPOV ; IHS/CMI/LAB - DISPLAY VISIT ;

Source Information

Source file <APCDRPOV.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 6 ^DIC  FILE^DICN  ^DIE  (,IX1)^DIK  ($$GET1,EN)^DIQ  ^DIR  
IHS Patient 2 (,KILL)^AUPNPAT  MOD^AUPNVSIT  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBNEW  
Patient Care Component 2 PAUSE^APCDALV1  ^APCDVLK  
IHS Code Mapping 1 $$PRIMPOV^BCQMAPI  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component 2 APCDCAF1  APCDCAF3  

Entry Points

Name Comments DBIA/ICR reference
EOJ ; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)
ENDE(VIEN) ;EP CALLED FROM DATA ENTRY TEMPLATE
GETPAT ;EP GET- PATIENT
POVDISP ;
EN(APCDVSIT) ;EP -pass in visit
GETVISIT ;EP - this entry point called by the BVP package (View patient record)
DSPLY ;

External References

Name Field # of Occurrence
PAUSE^APCDALV1 POVDISP+21
^APCDVLK GETVISIT+3
^AUPNPAT DSPLY+4
KILL^AUPNPAT EOJ+4
MOD^AUPNVSIT POVDISP+43
$$PRIMPOV^BCQMAPI POVDISP+40
^DIC GETPAT+4
FILE^DICN POVDISP+34
^DIE POVDISP+40
^DIK POVDISP+42
IX1^DIK POVDISP+39
$$GET1^DIQ POVDISP+7
EN^DIQ DSPLY+6
^DIR POVDISP+9, POVDISP+17, POVDISP+26
$$VAL^XBDIQ1 POVDISP+6, POVDISP+25
EN^XBNEW ENDE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to resequence the purpose of visit (diagnoses)"
  • Line Location: APCDRPOV+3
Function Call: WRITE
  • Prompt: !,"on a visit. This allows you to determine which will be the first diagnosis"
  • Line Location: APCDRPOV+4
Function Call: WRITE
  • Prompt: !,"listed which will become the primary diagnosis.",!!
  • Line Location: APCDRPOV+5
Function Call: WRITE
  • Prompt: !,"It is recommended that you query the provider before resequencing POVs.",!!
  • Line Location: APCDRPOV+6
Function Call: WRITE
  • Prompt: !!,"No PATIENT selected!"
  • Line Location: APCDRPOV+8
Function Call: WRITE
  • Prompt: !!,"No VISIT selected!"
  • Line Location: APCDRPOV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !!,"Visit Information",!
  • Line Location: DSPLY+1
Function Call: WRITE
  • Prompt: !?3,"Current Sequence of POV's",!
  • Line Location: POVDISP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: POVDISP+9
Function Call: WRITE
  • Prompt: !!,"Please jot down the order using the numbers above that you wish the POV's"
  • Line Location: POVDISP+13
Function Call: WRITE
  • Prompt: !,"to be in. For example, if there are 3 POV's and you want #3 first, #1 second"
  • Line Location: POVDISP+14
Function Call: WRITE
  • Prompt: !,"and #2 third, you would enter 3,1,2.",!
  • Line Location: POVDISP+15
Function Call: WRITE
  • Prompt: !!,"You did not select all ",APCDC," POV's. Please sequence all of them.",!
  • Line Location: POVDISP+21
Function Call: WRITE
  • Prompt: !!,"The POV's will be resequenced to the following order:"
  • Line Location: POVDISP+24
Function Call: WRITE
  • Prompt: !?5,X,")"
  • Line Location: POVDISP+25
Function Call: WRITE
  • Prompt: ?10,$$VAL^XBDIQ1(9000010.07,APCDX,.01),?20,$$VAL^XBDIQ1(9000010.07,APCDX,.04)
  • Line Location: POVDISP+25
Function Call: WRITE
  • Prompt: !
  • Line Location: POVDISP+26
Function Call: WRITE
  • Prompt: !!,"ERROR in creating new POV for ",APCDC
  • Line Location: POVDISP+35
Routine Call
  • DIE
  • Line Location:
    • POVDISP+40
Routine Call
  • DIC
  • Line Location:
    • GETPAT+4
Routine Call
  • DIR
  • Line Location:
    • POVDISP+9
    • POVDISP+17
    • POVDISP+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNVSIT - [#9000010] Classic Fileman Calls
^AUPNVPOV - [#9000010.07] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPOV - [#9000010.07] POVDISP+33, POVDISP+38*
^AUPNVPOV("AD" POVDISP+4
^AUPNVSIT - [#9000010] DSPLY+2

Label References

Name Line Occurrences
DSPLY APCDRPOV+11, POVDISP+18, POVDISP+19, POVDISP+27, POVDISP+28, POVDISP+44
EOJ APCDRPOV+8, APCDRPOV+10, APCDRPOV+12, POVDISP+10, POVDISP+11
GETPAT APCDRPOV+7
GETVISIT APCDRPOV+9
POVDISP DSPLY+7, POVDISP+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+2!
%DT EOJ+2!
%X EOJ+2!
%Y EOJ+2!
>> APCDC POVDISP+4*, POVDISP+5*, POVDISP+6, POVDISP+17, POVDISP+21, POVDISP+23*, POVDISP+25*, POVDISP+30*, POVDISP+35, POVDISP+40
APCDCAT EOJ+3!
APCDCLN EOJ+3!
APCDDATE EOJ+3!
>> APCDJ POVDISP+20*, POVDISP+21, POVDISP+25
APCDLOC EOJ+3!
APCDLOOK GETVISIT+1*, GETVISIT+4!, EOJ+3!
>> APCDNEW POVDISP+36*, POVDISP+38, POVDISP+39, POVDISP+40
APCDNEWO POVDISP+22!
APCDNEWO( POVDISP+25*, POVDISP+30
APCDNVDS DSPLY+6, ENDE+1*, ENDE+3!
APCDORD POVDISP+16!
APCDPAT APCDRPOV+8, GETPAT+3*, GETPAT+6*, EOJ+3!
APCDPOV POVDISP+4!
APCDPOV( POVDISP+5*, POVDISP+25
>> APCDPSN POVDISP+2*, POVDISP+7*, POVDISP+40
APCDTYPE EOJ+3!
APCDVLK GETVISIT+2!
>> APCDVR0 DSPLY+2*, DSPLY+3
APCDVSIT APCDRPOV+10, GETVISIT+1*, EN~, DSPLY+2, DSPLY+6, EOJ+3!, POVDISP+4, POVDISP+43
>> APCDX POVDISP+4*, POVDISP+5, POVDISP+6, POVDISP+7, POVDISP+25*, POVDISP+30*, POVDISP+33, POVDISP+38, POVDISP+42
>> AUPNLK("INAC" GETPAT+2*, EOJ+1!
>> AUPNVSIT POVDISP+43*
C EOJ+2!
D0 POVDISP+32!
DA DSPLY+6*, POVDISP+9!, POVDISP+17!, POVDISP+26!, POVDISP+39*!, POVDISP+40*!, POVDISP+42*!
DD POVDISP+32!
>> DFN DSPLY+3*, DSPLY+4
DIADD POVDISP+33*, POVDISP+37!
DIC GETPAT+4*!, DSPLY+6*, POVDISP+33*, POVDISP+37!
DIC(0 GETPAT+4*, POVDISP+33*
DIE POVDISP+40*!
DIK POVDISP+39*!, POVDISP+42*!
DIR POVDISP+9!, POVDISP+17!, POVDISP+26!
DIR("A" POVDISP+9*, POVDISP+17*, POVDISP+26*
DIR("B" POVDISP+9*, POVDISP+26*
DIR(0 POVDISP+9*, POVDISP+17*, POVDISP+26*
>> DIRUT POVDISP+10, POVDISP+18, POVDISP+27
DIYS EOJ+2!
DLAYGO POVDISP+33*, POVDISP+37!
DO POVDISP+32!
DR POVDISP+40*!
>> J POVDISP+25*
U DSPLY+3, POVDISP+33
VIEN ENDE~
X EOJ+2!, POVDISP+19, POVDISP+25*, POVDISP+33*
Y GETPAT+5, GETPAT+6, DSPLY+4*, EOJ+2!, POVDISP+11, POVDISP+20, POVDISP+28, POVDISP+35, POVDISP+36
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 |  All