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

Package: Order Entry Results Reporting

Routine: ORWDBA83


Information

ORWDBA83 ; SLC/GDU - Billing Awareness - Phase I [10/18/04 10:52]

Source Information

Source file <ORWDBA83.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 FIND^DIC  ^DIR  
Toolkit 1 (ADD,ENVAL)^XPAR  

Entry Points

Name Comments DBIA/ICR reference
DH ;;Select the provider who the parameter will be assigned to.
UA6 ;;Please try again
MT10P ;If search returned more then 10 providers
DA ;;Select the provider to assign the parameter
FA ;;Select the provider to assign the parameter
M1 ;;You have selected
M3 ;;Capture By Provider parameter to.
M2 ;;to assign the Enable Clinical Indicator Data
LTE10P ;If search returned a list less then or equal to 10
PHD ;;Enter D to assign the parameter and disable CIDC for this provider.
FT0 ;;FO^1:40
SCO ;;SO^
D0P ;;P:Previous 10 providers
PA ;;Assign the parameter to this provider
PD ;;D:Assign parameter and Disable CIDC for this provider
PE ;;E:Assign parameter and Enable CIDC for this provider
D0N ;;N:Next | providers
ASSIGN ;Assign the parameter and enable/disable CIDC functionality
DHN ;;Enter N to get the next | providers.
SCRHDR ;Screen Header
SH1 ;;Enable Clinical Indicator Data Capture By Provider Parameter Management
UA1 ;;Found no records matching the search criteria of
UA5 ;; 3. No records found.
UA3 ;; 1. The parameter is already assigned to any provider found.
UA2 ;;The reasons for this could be that during the search:
KILLVAR ;Kill variables to prepare for next look up
SH2 ;;Assign and Enable/Disable Parameter By Individual Provider Option
UA4 ;; 2. No providers found.
START ;Starting point of this program
KTG ;Kill the temp globals used by this program
DHS ;;Enter "^" to exit or the Enter key to return to provider lookup.
DHP ;;Enter P to get the previous 10 providers.
LISTU ;Build a list of providers who have not been assigned the parameter
LISTA ;Build a list of providers with the parameter already assigned to them.
PHE ;;Enter E to assign the parameter and enable CIDC for this provider.
ALERT ;Alert the user that the selection returned no records.
EXIT ;Exit point for this program
FH4 ;;do not have the CIDC parameter assigned to them.
SETDIR ;Set common values for DIR used by LTE10P and MT10P
FH1 ;;Enter the name/partial name of the provider to assign the parameter.
FH3 ;;This search will only return those with the PROVIDER key and who
FH2 ;;This is free text, 1 to 40 characters in length.

External References

Name Field # of Occurrence
FIND^DIC START+16
^DIR START+10, ALERT+6, ASSIGN+7, LTE10P+3, MT10P+13
ADD^XPAR ASSIGN+11
ENVAL^XPAR LISTA+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P($T(M1),";",3)," ",NAME," ",$P($T(M2),";",3),!,$P($T(M3),";",3)
  • Line Location: ASSIGN+6
Function Call: WRITE
  • Prompt: !,$P($T(SH1),";",3),!,$P($T(SH2),";",3),!
  • Line Location: SCRHDR+2
Routine Call
  • DIC
  • Line Location:
    • START+16
Routine Call
  • DIR
  • Line Location:
    • START+10
    • ALERT+6
    • ASSIGN+7
    • LTE10P+3
    • MT10P+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("ORPAL" KTG+1!, LISTA+5, LISTA+6*, LISTU+4
^TMP("ORPUL" KTG+1!, LISTU+2*, LISTU+5*, LISTU+6*
^XTV(8989.51 - [#8989.51] ASSIGN+10, LISTA+3
^XUSEC("PROVIDER" LISTU+3

Label References

Name Line Occurrences
ALERT START+19
ASSIGN START+21, START+29
D0N MT10P+7
D0P MT10P+10
DA SETDIR+5
DH SETDIR+3
DHN MT10P+8
DHP MT10P+12
DHS SETDIR+4
EXIT START+12, START+27
FA START+5
FH1 START+6
FH2 START+7
FH3 START+8
FH4 START+9
FT0 START+4
KILLVAR START+28, ALERT+7, ASSIGN+12
KTG ASSIGN+12
LISTA ASSIGN+12
LISTU ASSIGN+12
LTE10P START+23
M1 ASSIGN+6
M2 ASSIGN+6
M3 ASSIGN+6
MT10P START+25, MT10P+15
PA ASSIGN+3
PD ASSIGN+2
PE ASSIGN+2
PHE ASSIGN+4
SCO ASSIGN+2, SETDIR+2
SCRHDR START+10, ALERT+6, ASSIGN+5, LTE10P+3, MT10P+13
SETDIR LTE10P+1, MT10P+1
SH1 SCRHDR+2
SH2 SCRHDR+2
START START+19, START+21, START+28, START+29
UA1 ALERT+3
UA6 ALERT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT START+1~, MT10P+2*, MT10P+4*, MT10P+9, MT10P+11, LISTU+1~, LISTU+2*, LISTU+5*
DIR START+1~, ALERT+1!, SETDIR+1!, KILLVAR+1!
DIR("?" START+6*, START+7*, START+8*, START+9*, ASSIGN+4*, MT10P+11*, MT10P+12*, SETDIR+3*, SETDIR+4*
DIR("A" START+5*, ALERT+3*, ALERT+4*, ALERT+5*, ASSIGN+3*, SETDIR+5*
DIR(0 START+4*, ALERT+2*, ASSIGN+2*, LTE10P+2*, MT10P+5*, MT10P+9*, MT10P+10*, SETDIR+2*
DTOUT START+1~, START+12, ASSIGN+8, LTE10P+4, MT10P+14, KILLVAR+1!
DUOUT START+1~, START+12, ASSIGN+8, LTE10P+4, MT10P+14, KILLVAR+1!
ENT START+1~, ASSIGN+9*, ASSIGN+11, KILLVAR+1!
FILE START+1~, START+13*, START+16, KILLVAR+1!
FLD START+1~, START+13*, START+16, KILLVAR+1!
FLG START+1~, START+13*, START+16, KILLVAR+1!
FST START+1~, START+25*, MT10P+3, MT10P+10, MT10P+12, MT10P+15*
GBL LISTA+1~, LISTA+2*, LISTA+4
HC START+1~, MT10P+2*, MT10P+11*, MT10P+12*
ID START+1~, START+13*, START+16, KILLVAR+1!
IEN START+1~, START+13*, START+16, ASSIGN+1*, ASSIGN+9, KILLVAR+1!, LISTA+1~, LISTA+5*, LISTA+6*, LISTU+1~
, LISTU+2*, LISTU+3*, LISTU+4, LISTU+6
IND START+1~, START+13*, START+16, KILLVAR+1!
INST START+1~, ASSIGN+9*, ASSIGN+11, KILLVAR+1!, LISTA+1~, LISTA+2*, LISTA+4
IOF SCRHDR+1
LIST LISTA+1~, LISTA+2*, LISTA+4
NAME START+1~, ASSIGN+1*, ASSIGN+6, KILLVAR+1!
NUM START+2~, START+13*, START+16, KILLVAR+1!
NX0 START+2~, MT10P+2*, MT10P+7*, MT10P+9, KILLVAR+1!
NXC START+2~, MT10P+2*, MT10P+6*, MT10P+7, MT10P+8, KILLVAR+1!
NXH START+2~, MT10P+2*, MT10P+8*, MT10P+11, KILLVAR+2!
OREM START+1~, ASSIGN+9*, ASSIGN+11, KILLVAR+1!
ORERR LISTA+1~, LISTA+2*, LISTA+4
ORSCR START+2~, START+14*, START+16, KILLVAR+2!
ORSCR("S" START+15*
PAR START+2~, ASSIGN+10*, ASSIGN+11, LISTA+1~, LISTA+3*, LISTA+4
RF START+2~, KILLVAR+2!
RF("DILIST" START+17, ASSIGN+1, LTE10P+2, MT10P+3, MT10P+5
RFC START+2~, START+17*, START+19, START+21, START+23, START+25, LTE10P+2, MT10P+6, KILLVAR+2!
SP START+2~, START+13*, START+21*, START+27, START+28, ASSIGN+1, LTE10P+4*, LTE10P+5*, MT10P+2*, MT10P+14*
, MT10P+16*, KILLVAR+2!
U START+17, ASSIGN+1, LTE10P+2, MT10P+5
VAL START+2~, START+13*, START+16, ALERT+3, ASSIGN+9*, ASSIGN+11, KILLVAR+2!
X START+2~, ALERT+4*, LTE10P+2*, MT10P+2*, MT10P+3*, MT10P+5, MT10P+6, KILLVAR+2!, LISTA+1~, LISTA+5*
, LISTA+6
X1 START+2~, ALERT+1!, ALERT+2*, ALERT+4*, KILLVAR+2!
Y START+2~, START+12, START+13, ASSIGN+8, ASSIGN+9, LTE10P+5, MT10P+2*, MT10P+15, MT10P+16, KILLVAR+2!

Marked Items

Name Field # of Occurrence
$T(@X1 ALERT+4
$T(D0N MT10P+7
$T(D0P MT10P+10
$T(DA SETDIR+5
$T(DH SETDIR+3
$T(DHN MT10P+8
$T(DHP MT10P+12
$T(DHS SETDIR+4
$T(FA START+5
$T(FH1 START+6
$T(FH2 START+7
$T(FH3 START+8
$T(FH4 START+9
$T(FT0 START+4
$T(M1 ASSIGN+6
$T(M2 ASSIGN+6
$T(M3 ASSIGN+6
$T(PA ASSIGN+3
$T(PD ASSIGN+2
$T(PE ASSIGN+2
$T(PHE ASSIGN+4
$T(SCO ASSIGN+2, SETDIR+2
$T(SH1 SCRHDR+2
$T(SH2 SCRHDR+2
$T(UA1 ALERT+3
$T(UA6 ALERT+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All