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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSONVAP4

Package: Outpatient Pharmacy

Routine: PSONVAP4


Information

PSONVAP4 ;HPS/DSK - NON-VA PROVIDER BACKOUT ;May 16, 2018@16:00

Source Information

Source file <PSONVAP4.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 (,DD)^%DT  UPDATE^DIE  ^DIR  
Kernel 2 $$FMADD^XLFDT  BMES^XPDUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO NON-VA PROVIDER INACTIVATE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASK ;
INACT ;

External References

Name Field # of Occurrence
^%DT ASK+3
DD^%DT ASK+6
UPDATE^DIE INACT+26
^DIR EN+21, ASK+12, INACT+31
$$FMADD^XLFDT INACT+13
BMES^XPDUTL INACT+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is to be used ONLY to inactivate non-VA providers"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"which were loaded by the Non-VA Provider Import option."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"If you proceed, NEW PERSON (#200) file entries which meet"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"the following criteria:",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,?2,"NON-VA PRESCRIBER (#53.91) field = YES"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?2,"REMARKS (#53.9) field contains ""NON-VA PROVIDER"""
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,?2,"DATE ENTERED (#30) field = the date specified in the ""DATE ENTERED"" prompt"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"will have:"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,?2,"DISUSER (#7) field set to ""YES"""
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,?2,"TERMINATION DATE (#9.2) and INACTIVE DATE (#53.4)"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,?2,"fields populated with yesterday's date."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,?2,"(Yesterday's date must be used in order to immediately"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,?2,"inactivate the providers.)"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,?2,"REMARKS (#53.9) field will have a comment added:"
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,?2,"""INACTIVATED BY NON-VA INACTIVATE OPTION"".",!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"NEW PERSON (#200) file entries for non-VA providers which were entered on"
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,Y," will be inactivated."
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !!,"Starting -- Please wait ."
  • Line Location: INACT+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: INACT+18
Function Call: WRITE
  • Prompt: !,"Finished."
  • Line Location: INACT+28
Function Call: WRITE
  • Prompt: !!,"Check ^XTMP(""",PSOJOB,""""," for IEN's which have been inactivated."
  • Line Location: INACT+29
Function Call: WRITE
  • Prompt: !
  • Line Location: INACT+30
Routine Call
  • DIE
  • Line Location:
    • INACT+26
Routine Call
  • DIR
  • Line Location:
    • EN+21
    • ASK+12
    • INACT+31

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] INACT+16, INACT+19, INACT+25
^XTMP( INACT+3, INACT+5, INACT+13*, INACT+21*

Label References

Name Line Occurrences
ASK EN+23
INACT EN+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASK+1~, ASK+2*
%DT("A" ASK+2*
DIR EN+1~, EN+18!, EN+21!, ASK+1~, ASK+9!, ASK+12!, INACT+1~
DIR("?" EN+19*, ASK+10*
DIR("A" EN+20*, ASK+11*, INACT+31*
DIR("B" EN+18*, ASK+9*
DIR(0 EN+18*, ASK+9*, INACT+31*
DT INACT+13, INACT+22, INACT+23
DTOUT EN+1~, EN+22, ASK+1~, ASK+4, ASK+13
DUOUT EN+1~, EN+22, ASK+1~, ASK+4, ASK+13
PSOA INACT+1~, INACT+5*
PSODT EN+1~, ASK+5*, INACT+19, INACT+21
PSOERR INACT+20~
PSOERR("DIERR" INACT+27
PSOFDA INACT+1~
PSOFDA(200 INACT+22*, INACT+23*, INACT+24*, INACT+25*
PSOIEN INACT+1~, INACT+15*, INACT+16*, INACT+19, INACT+21, INACT+22, INACT+23, INACT+24, INACT+25
PSOJOB INACT+1~, INACT+2*, INACT+3, INACT+5, INACT+7*, INACT+13, INACT+21, INACT+29
PSOJOBN INACT+1~, INACT+4*, INACT+6*, INACT+7
PSOQUIT EN+1~, EN+2*, EN+22*, EN+24, ASK+4*, ASK+13*
PSOWAIT INACT+1~, INACT+15*, INACT+17*, INACT+18
Y EN+1~, EN+22, ASK+1~, ASK+4, ASK+5, ASK+8, ASK+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All