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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPOLG

Package: Prosthetics

Routine: RMPOLG


Information

RMPOLG ;HIN-CIOFO/RVD - HOME OXYGEN LETTERS (MANAGE LETTER) ;7/24/98

Source Information

Source file <RMPOLG.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 DD^%DT  ^DIC  FILE^DICN  ^DIK  $$EXTERNAL^DILFD  
List Manager 3 EN^VALM  ($$SETFLD,FULL)^VALM1  (CLEAN,SET)^VALM10  
Prosthetics 2 $$CNTR^RMPOLY  ($$SELN,EXTRCT,UPDLTR)^RMPOLZA  
Kernel 1 DISP^XQORM1  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for manage letter list.
; Input:
; RMPOLCD - Selected Home Oxygen Letter code
; Called by:
; RMPOLZ - H.O. Letter Control module
HDR ; -- header code
INIT ; -- init variables and list array
HELP ; -- help code
EXIT ; -- exit code
EN02 ; Delete list entry and code deleted in #665
ADD ; Add patient to the list entry.
DIC
GETPAT ;get patient information(demographics)
AMEND ; delete listman data and rebuild list from amended work file

External References

Name Field # of Occurrence
DD^%DT INIT+8, INIT+9
^DIC DIC
FILE^DICN GETPAT+8
^DIK EN02+28
$$EXTERNAL^DILFD HDR+1
$$CNTR^RMPOLY HDR+1, HDR+2
$$SELN^RMPOLZA EN02+3
EXTRCT^RMPOLZA GETPAT+1
UPDLTR^RMPOLZA EN02+13
EN^VALM EN+5
$$SETFLD^VALM1 INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19
FULL^VALM1 ADD+1
CLEAN^VALM10 EXIT+1, AMEND+1
SET^VALM10 INIT+20
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !,"Patient has no current prescription!!"
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: !,"Rx prescription has expired - Unable to ADD patient to the list !!",!
  • Line Location: DIC+4
Function Call: WRITE
  • Prompt: !,"Patient was not added!!!"
  • Line Location: GETPAT+9
Routine Call
  • DIC
  • Line Location:
    • DIC
Routine Call
  • VALM
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(665 - [#665] EN02+18*, EN02+21*, EN02+24*, DIC+1, DIC+2, DIC+3, DIC+5
^RMPR(669.9 - [#669.9] EN02+26, GETPAT+6
^TMP($J INIT+5, INIT+6, INIT+7, EN02+4*, EN02+11, EN02+15!, GETPAT+2, GETPAT+11*

Label References

Name Line Occurrences
AMEND EN02+31, DIC
DIC DIC+1, DIC+2, DIC+4
INIT AMEND+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADT DIC+5*
CNT EN02+6~, EN02+9*
DA EN02+26*, EN02+29!, GETPAT+9, GETPAT+11, GETPAT+12!
DA(1 EN02+27*, GETPAT+7*
DD GETPAT+7!
DIC ADD+2!, DIC*, GETPAT+7*, GETPAT+12!
DIC("S" ADD+3*
DIC(0 DIC*, GETPAT+8*
DIK EN02+27*, EN02+28*, EN02+29!
>> DLAYGO GETPAT+8*
DO GETPAT+7!
DT EN02+18, EN02+21, EN02+24, DIC+4
IOF ADD+1
LINE EN02+1~, EN02+9*, EN02+10
>> LTRX("C" GETPAT+10
REC INIT+1~, INIT+7*, INIT+8, INIT+11, INIT+15, INIT+16
>> RMCOD GETPAT+4*, GETPAT+6, GETPAT+7
>> RMDBAT EN02+19*, EN02+22*, EN02+25*, EN02+26, EN02+28
>> RMDEXP DIC+3*, DIC+4
RMPODFN INIT+1~, INIT+6*, INIT+7, INIT+20, EN02+10*, EN02+11, EN02+13, EN02+15, EN02+18, EN02+21
EN02+24, EN02+26, ADD+2!, DIC+5*, GETPAT+2, GETPAT+6, GETPAT+8, GETPAT+11
>> RMPOEXP INIT+11*, INIT+19
RMPOITEM INIT+1~, INIT+11*, INIT+12*, INIT+17
>> RMPOLCD HDR+1, INIT+5, INIT+6, EN02+15, EN02+16, EN02+17, EN02+20, EN02+23, GETPAT+4, GETPAT+10
GETPAT+11
>> RMPOLTR GETPAT+10*, GETPAT+11
>> RMPONAM INIT+4*, INIT+5*, INIT+6, EN02+11*, EN02+12*, EN02+15, GETPAT+2*, GETPAT+11
>> RMPORX INIT+8*, INIT+18, DIC+1*, DIC+2, DIC+3, DIC+4
>> RMPOXITE INIT+5, INIT+6, INIT+7, EN02+4, EN02+11, EN02+15, EN02+26, EN02+27, GETPAT+2, GETPAT+6
GETPAT+7, GETPAT+11
SEL EN02+1~, EN02+3*, EN02+4, EN02+5, EN02+9
SP INIT+1~, INIT+4*, INIT+14
U INIT+6, INIT+8, INIT+11, INIT+14, INIT+15, INIT+16, EN02+11, EN02+18, EN02+21, EN02+24
DIC+1, DIC+3, DIC+5, GETPAT+2
>> VALMAR EN02+10, AMEND+2
>> VALMBCK AMEND+3*
>> VALMCNT INIT+4*, INIT+7*, INIT+14, INIT+20, EN02+3
>> VALMDDF("LINE #" , INIT+14
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*
X INIT+1~, INIT+14*, INIT+15*, INIT+16*, INIT+17*, INIT+18*, INIT+19*, INIT+20, HELP+1*, GETPAT+8*
GETPAT+12!
Y INIT+1~, INIT+8*, INIT+9, INIT+10*, INIT+11, DICDIC+1, DIC+2, DIC+3, DIC+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All