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

Package: Remote Order Entry System

Routine: RMPFET4


Information

RMPFET4 ;DDC/KAW-EVALUATE ORDER STATUS BY TYPE [ 05/27/95 2:10 PM ]

Source Information

Source file <RMPFET4.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Remote Order Entry System 1 ARRAY^RMPFDT2  

Entry Points

Name Comments DBIA/ICR reference
CUST ;; input: RMPFX
REG ;; input: RMPFX
REGE
ISS ;;Special error checks for Custom Hearing Aid Issue Orders
I1
ISSE

External References

Name Field # of Occurrence
ARRAY^RMPFDT2 CUST+7, ISS+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] CUST+2, CUST+4, CUST+8, CUST+9, CUST+17, REG+3, REG+4, REG+5, REG+6, ISS+3
I1+1, I1+4, I1+7, I1+8
^RMPF(791811 - [#791811] CUST+10, CUST+11
^RMPR(662 - [#662] CUST+4

Label References

Name Line Occurrences
REGE REG+3

Naked Globals

Name Field # of Occurrence
^( I1+1
^(0 CUST+4, REG+4, I1+7
^(11 CUST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A CUST+8*, CUST+12, CUST+13, CUST+21!
AD CUST+17*, CUST+19, CUST+20, CUST+21!
BT I1+6*, I1+7, ISSE!
CX CUST+7*, CUST+8*, CUST+14, CUST+16, CUST+21!
DT CUST+18, CUST+19
I CUST+8*, CUST+21!, REG+3*, REGE!
ID I1+6*, I1+9, I1+10, I1+11, ISSE!
IT CUST+9*, CUST+10, CUST+11, CUST+21!
MD REG+7*, REGE!
MK REG+6*, REGE!
MM REG+6*, REG+7, REGE!
OD ISS+3*, I1+11, ISSE!
RC CUST+17*, CUST+18, CUST+20, CUST+21!
RMPFDC CUST+4*, CUST+21!
RMPFEAR CUST+7!, CUST+21!
RMPFEAR( CUST+12, CUST+13*
>> RMPFERR("AUDI OLOGICAL ASSESSMENT DATE CANNOT BE A FUTURE DATE" , CUST+19*, OLOGICAL ASSESSMENT DATE CANNOT BE PRIOR TO REQUEST FOR CARE DATE" , CUST+20*
>> RMPFERR("BATT ERY TYPE MISSING" , I1+7*
>> RMPFERR("CERT IFICATION INFORMATION MISSING" , I1+5*
>> RMPFERR("FITT ING CANNOT BE BINAURAL IF AUTHORIZED USAGE IS MONAURAL" , CUST+15*, ING CANNOT BE BINAURAL IF PATIENT IS DEAF/U" , CUST+5*
>> RMPFERR("FREE TEXT MAKE AND MODEL NOT ENTERED" , REG+5*,  TEXT MAKE MISSING" , REG+6*,  TEXT MODEL MISSING" , REG+7*
>> RMPFERR("ISSU E DATE IS PRIOR TO ORDER DATE" , I1+11*, E DATE MISSING" , I1+9*, ING USER MISSING" , I1+8*
>> RMPFERR("PATI ENT CANNOT BE AUTHORIZED FOR BINAURAL USE IF DISABILITY IS DEAF/U" , CUST+6*
>> RMPFERR("REQU EST FOR CARE DATE CANNOT BE A FUTURE DATE" , CUST+18*
>> RMPFERR("SERI AL NUMBER MISSING" , I1+3*
>> RMPFERR("TWO AIDS MUST BE ORDERED WITH A BINAURAL FITTING" , CUST+14*
>> RMPFMSG("MORE THAN TWO AIDS HAVE BEEN ORDERED FOR A MONAURAL USER" , CUST+16*
>> RMPFMSG("TWO OR MORE AIDS ARE ORDERED FOR THE SAME EAR" , CUST+12*
RMPFO CUST+21!, ISSE!
RMPFO( CUST+8, I1
RMPFTF CUST+3*, CUST+5, CUST+14, CUST+15, CUST+21!
RMPFUS CUST+3*, CUST+6, CUST+15, CUST+16, CUST+21!
>> RMPFX CUST+2, CUST+4, CUST+8, CUST+9, CUST+17, REG+3, REG+4, REG+5, REG+6, ISS+3
I1+1, I1+4, I1+7, I1+8
RMPFY ISS+3*, I1*, I1+1, I1+4, I1+7, I1+8, ISSE!
S0 I1+1*, I1+2, I1+3, I1+6, ISSE!
SS CUST+2*, CUST+3, CUST+17*, CUST+21!
U CUST+3, CUST+4, CUST+8, CUST+9, CUST+17, REG+4, REG+6, REG+7, ISS+3, I1+1
I1+2, I1+3, I1+5, I1+6, I1+7, I1+8
X CUST+4*, CUST+5, CUST+6, CUST+7*, CUST+8*, CUST+9, CUST+21!, REG+2*, REG+3*, REG+4
REG+5, REG+6, REGE!, I1+4*, I1+5, I1+6*, I1+8, I1+9, ISSE!
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All