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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPOLET0

Package: Prosthetics

Routine: RMPOLET0


Information

RMPOLET0 ;EDS/PAK - HOME OXYGEN LETTERS ;7/24/98

Source Information

Source file <RMPOLET0.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^%DTC  YN^DICN  ^DIE  
Prosthetics 2 (EXIT,SELECT)^RMPOLETA  HOSITE^RMPOUTL0  
Registration 1 (ADD,DEM)^VADPT  

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

Package Total Caller Graph
Prosthetics 3 RMPOLET1  RMPOLET2  RMPOLY  

Entry Points

Name Comments DBIA/ICR reference
START ;
SITE() ;find the site if the site is not multidivisional
LST() ;Check Letters List
LTRCR ; build local array CROSS REFERENCE of H.O. letter Code to Letter
GENLST ; generate patient letter list
GENOLST(BTYP) ; Generate work file from current patient letter list
NACT() ; check if new patient letter or inactivation letter is required
EXPR ; check if prescription is pending expiry
EXTRCT(BTYP)
FNDTRX
PURGE ; Purge current patient letter list
LOCK(TXT)
UPDLTR(DA,VAL)
EXIT

External References

Name Field # of Occurrence
^%DTC EXPR+5
YN^DICN LST+7, LST+9
^DIE UPDLTR+5
EXIT^RMPOLETA EXIT
SELECT^RMPOLETA START+12
HOSITE^RMPOUTL0 SITE+3
ADD^VADPT EXTRCT+10
DEM^VADPT GENLST+11, EXTRCT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SITE+4
Function Call: WRITE
  • Prompt: !!,*7,"You must choose a Home Oxygen Site.",!!
  • Line Location: SITE+5
Function Call: WRITE
  • Prompt: !,"A list of patient letters to be printed already exists",!
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: !,"Do you wish to reprint the current list"
  • Line Location: LST+7
Function Call: WRITE
  • Prompt: !,"Do you wish to generate a new list which will discard any edits"
  • Line Location: LST+9
Function Call: WRITE
  • Prompt: !,"Cannot "_TXT_" list as list edit or printing is in progress"
  • Line Location: LOCK+2
Routine Call
  • DIE
  • Line Location:
    • UPDLTR+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665 - [#665] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] EXTRCT+21
^RMPR(661 - [#661] EXTRCT+20
^RMPR(665 - [#665] LST+4, GENLST+4, GENLST+6, GENLST+9, GENLST+14, GENLST+18, GENLST+22, GENOLST+3, GENOLST+4, GENOLST+5
, GENOLST+6, GENOLST+7, EXPR+3, EXTRCT+14, EXTRCT+18, EXTRCT+20, PURGE+1, PURGE+2
^RMPR(665.4 - [#665.4] FNDTRX+7, FNDTRX+9, FNDTRX+10, FNDTRX+12
^RMPR(669.9 - [#669.9] LTRCR+11, LTRCR+12, GENOLST+8, GENOLST+9, EXPR+6, EXPR+8, EXPR+9, EXPR+10
^TMP("RMPO" START+14, LOCK+2
^TMP($J START+7!, SITE+4!, GENOLST+10*, NACT+7*, EXPR+12*, EXTRCT+5, EXTRCT+26*

Label References

Name Line Occurrences
$$LOCK LST+11
$$LST START+4
$$NACT GENLST+20
$$SITE START+3
EXIT START+4, START+15
EXPR GENLST+24
EXTRCT GENOLST+10, NACT+7, EXPR+12
FNDTRX GENLST+17
GENLST START+10
GENOLST START+10
LTRCR START+6
PURGE START+5
UPDLTR PURGE+2

Naked Globals

Name Field # of Occurrence
^(0 EXTRCT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LST+5*, LST+8, LST+9*
ADT GENLST+1~, GENLST+15*, GENLST+16, GENOLST+6*, NACT+4, EXTRCT+24
BTYP GENOLST~, GENOLST+10, EXTRCT~, EXTRCT+25
DA UPDLTR~
>> DFN GENLST+11*, EXTRCT+9*
>> DIE UPDLTR+5*
>> DR UPDLTR+5*
DT EXPR+4, EXPR+5, EXTRCT+25
DTE NACT+1~, NACT+4*, NACT+6
EXP EXPR+1~
FND NACT+1~, NACT+4*, NACT+5, NACT+6*, NACT+8
IADT GENLST+1~, GENLST+15*, GENOLST+6*, NACT+4
INAME EXTRCT+7~, EXTRCT+9*, EXTRCT+18*, EXTRCT+21*, EXTRCT+24
INFO EXTRCT+7~, EXTRCT+24*, EXTRCT+25*, EXTRCT+26
IOF SITE+4
LST START+1~, START+4*, START+5, START+10, LST+1~, LST+3*, LST+8*, LST+9*, LST+10*, LST+11*
, LST+12, NACT+1~, NACT+3, NACT+4*, NACT+5, NACT+7*
LTR EXPR+1~, EXPR+9*, EXPR+10
LTRIEN LTRCR+9~, LTRCR+11*, LTRCR+12, GENOLST+1~, GENOLST+8*, GENOLST+9
LTRX START+1~
LTRX("A" LTRCR+13*, NACT+5
LTRX("B" LTRCR+13*, FNDTRX+10, FNDTRX+11
>> NAME EXTRCT+11*
REC LTRCR+9~, LTRCR+12*, GENLST+1~, GENLST+14*, GENLST+15, GENOLST+6*, EXPR+1~, EXPR+3*, EXPR+4
>> RMPO("STA" GENOLST+5, FNDTRX+9
>> RMPODAYS EXPR+5*, EXPR+6*, EXPR+7, EXPR+8, EXPR+9
>> RMPODFN GENLST+5*, GENLST+6*, GENLST+9, GENLST+11, GENLST+14, GENLST+18, GENLST+22, GENOLST+4*, GENOLST+5, GENOLST+6
, GENOLST+7, GENOLST+10, NACT+7, EXPR+3, EXPR+12, EXTRCT+5, EXTRCT+9, EXTRCT+11, EXTRCT+14, EXTRCT+18
, EXTRCT+20, EXTRCT+26, FNDTRX+7, PURGE+2*
>> RMPOEXP EXPR+4*, EXPR+5, EXTRCT+14*, EXTRCT+15*, EXTRCT+24
>> RMPOITEM EXTRCT+18*, EXTRCT+19, EXTRCT+20*, EXTRCT+21
>> RMPOLCD LTRCR+12*, LTRCR+13, GENOLST+9*, GENOLST+10, NACT+3*, NACT+4, NACT+5, NACT+6, NACT+7, EXPR+3*
EXPR+11, EXPR+12, FNDTRX+11*, FNDTRX+12
>> RMPOLTR LTRCR+12*, LTRCR+13, GENOLST+3*, GENOLST+4, GENOLST+8, GENOLST+10, NACT+4*, NACT+5*, NACT+6, NACT+7
EXPR+10*, EXPR+11, EXPR+12, FNDTRX+10*, FNDTRX+11, FNDTRX+12, PURGE+1*, PURGE+2
>> RMPOREC SITE+5, SITE+6
>> RMPORX GENLST+18*, GENLST+23, GENOLST+7*, EXPR+3, EXTRCT+14, EXTRCT+25
>> RMPORXDT EXTRCT+14*, EXTRCT+15*, EXTRCT+25
>> RMPOXITE SITE+6*, LTRCR+11, LTRCR+12, GENLST+9, GENOLST+8, GENOLST+9, EXPR+8, EXPR+9, EXPR+10
>> STA GENOLST+5*
TRX FNDTRX+5~, FNDTRX+7*, FNDTRX+9, FNDTRX+10, FNDTRX+12
TRXS START+1~, GENLST+7~
TRXS( NACT+6, EXPR+11, FNDTRX+12*
TXT START+1~, LST+11*, LOCK~, LOCK+2
U LTRCR+12, GENLST+9, GENLST+15, GENLST+18, GENOLST+5, GENOLST+6, GENOLST+7, GENOLST+9, EXPR+4, EXPR+10
, EXTRCT+11, EXTRCT+14, EXTRCT+20, EXTRCT+21, EXTRCT+24, EXTRCT+25, FNDTRX+9, FNDTRX+10, FNDTRX+12
VADM GENLST+11!, EXTRCT+10!
VADM(1 EXTRCT+11, EXTRCT+24
VADM(2 EXTRCT+24
VADM(5 EXTRCT+25
VADM(6 GENLST+13
VAL UPDLTR~, UPDLTR+5
>> VAPA(1 EXTRCT+25
>> VAPA(2 EXTRCT+25
>> VAPA(3 EXTRCT+25
>> VAPA(4 EXTRCT+25
>> VAPA(5 EXTRCT+25
>> VAPA(6 EXTRCT+25
>> X EXPR+5
>> X1 EXPR+5*
>> X2 EXPR+5*
>> Z GENLST+3*, GENLST+4*, GENLST+6
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 |  Naked Globals |  Local Variables  | All