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

Package: Remote Order Entry System

Routine: RMPFDT6


Information

RMPFDT6 ;DDC/KAW-PATIENT DISPLAY TYPE SPECIFIC MODEL SCREEN [ 03/10/98 1:46 PM ]

Source Information

Source file <RMPFDT6.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Remote Order Entry System 1 COMP^RMPFDT3  

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
Remote Order Entry System 1 RMPFDT3  

Entry Points

Name Comments DBIA/ICR reference
PRTB
PRTD
PRTG
PRTW
PRTM
PRTQ
PRTX
PRTN
PRTT
PRTV
PRTZ
PRTJ
HEAD
LINE
LINE1

External References

Name Field # of Occurrence
COMP^RMPFDT3 PRTM+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "[",CN,"]"
  • Condition for execution: $D(RMPFEDIT)&$D(CN)
  • Line Location: PRTB+1
Function Call: WRITE
  • Prompt: ?42,"Product Group of",!,?4,"Battery Type",?20,"Quantity",?38,"Item Requiring Batteries",?73,"Status"
  • Line Location: PRTB+1
Function Call: WRITE
  • Prompt: !,$J(CX,2),". ",$E(RMPFITP,1,16),?20,$J(RMPFQTY,5),?31,RMPFPG,?72,$E(RMPFLIS,1,8)
  • Line Location: PRTB+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTD+0
Function Call: WRITE
  • Prompt: "[",CN,"]"
  • Condition for execution: $D(RMPFEDIT)&$D(CN)
  • Line Location: PRTD+0
Function Call: WRITE
  • Prompt: ?4,"Battery Type",?20,"Quantity",?31,"Status",!,?4,"-------------",?20,"--------",?31,"------"
  • Line Location: PRTD+0
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",?4,$E(RMPFITP,1,16),?20,$J(RMPFQTY,8),?31,$E(RMPFLIS,1,6)
  • Line Location: PRTD+1
Function Call: WRITE
  • Prompt: ?4,"Make",?16,"Model",?27,"Pur By",?35,"Serial #",?45,"Battery",?54,"Acq. Dt.",?64,"Replace SN",?75,"Stat."
  • Line Location: PRTG+0
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",$E(RMPFMAK,1,7),?11,$E(RMPFITP,1,15),?27,RMPFOB
  • Line Location: PRTG+1
Function Call: WRITE
  • Prompt: ?34,$E(RMPFSN,1,9),?45,$E(RMPFBAT,1,7)
  • Line Location: PRTG+2
Function Call: WRITE
  • Prompt: ?53,RMPFACQD
  • Line Location: PRTG+3
Function Call: WRITE
  • Prompt: ?64,$E(RMPFN(X),1,13)
  • Line Location: PRTG+5
Function Call: WRITE
  • Prompt: ?75,$E(RMPFLIS,1,5)
  • Line Location: PRTG+6
Function Call: WRITE
  • Prompt: ?75,$E(RMPFLIS,1,5)
  • Line Location: PRTG+7
Function Call: WRITE
  • Prompt: "[",CN,"]"
  • Condition for execution: $D(RMPFEDIT)&$D(CN)
  • Line Location: PRTM+1
Function Call: WRITE
  • Prompt: ?9,"Make",?27,"Model",?42,"Quantity",?56,"Components",?72,"Status"
  • Line Location: PRTM+1
Function Call: WRITE
  • Prompt: !,$J(CX,2),". ",$E(RMPFMAK,1,16),?20,$E(RMPFITP,1,20),?42,$J(RMPFQTY,5)
  • Line Location: PRTM+3
Function Call: WRITE
  • Prompt: ?52,CM
  • Line Location: PRTM+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(CM)>18
  • Line Location: PRTM+4
Function Call: WRITE
  • Prompt: ?72,$E(RMPFLIS,1,8)
  • Line Location: PRTM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTQ+0
Function Call: WRITE
  • Prompt: "[",CN,"]"
  • Condition for execution: $D(RMPFEDIT)&($D(CN))
  • Line Location: PRTQ+0
Function Call: WRITE
  • Prompt: ?8,"Hearing Aid Accessory",?36,"Quantity",?46,"Status",!,?4,"------------------------------",?36,"--------",?46,"------"
  • Line Location: PRTQ+0
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",?4,$E(RMPFITP,1,30),?35,$J(RMPFQTY,9),?46,$E(RMPFLIS,1,6)
  • Line Location: PRTQ+1
Function Call: WRITE
  • Prompt: ?6,"Make",?21,"Model",?35,"Component",?47,"Comp Price",?59,"Ear",?64,"Status"
  • Line Location: PRTX+0
Function Call: WRITE
  • Prompt: !?4,"--------",?14,"-------------------",?35,"----------",?47,"----------",?59,"---",?64,"------"
  • Line Location: PRTX+0
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",?4,$E(RMPFMAK,1,8),?14,$E(RMPFITP,1,19)
  • Line Location: PRTX+1
Function Call: WRITE
  • Prompt: ?35,$E(RMPFCOM,1,9),?47,$J(RMPFCOMC,10)
  • Line Location: PRTX+7
Function Call: WRITE
  • Prompt: !?4,"Serial Number: ",RMPFSN
  • Line Location: PRTX+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RMPFSN=""
  • Line Location: PRTX+11
Function Call: WRITE
  • Prompt: ?32,"Re-"
  • Condition for execution: $P(^RMPF(791810,RMPFX,101,RMPFY,90),U,10)
  • Line Location: PRTX+11
Function Call: WRITE
  • Prompt: ?33,"Certified: ",RMPFCERD,?57,"By: ",$E(RMPFCERU,1,19)
  • Line Location: PRTX+11
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",$E(RMPFMAK,1,7),?11,$E(RMPFITP,1,11),?23,RMPFSN,?34,RMPFISDP,?45,$E(RMPFBAT,1,7),?53,$E(RMPFISRE,1,4),?59,RMPFLR
  • Line Location: PRTN+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: CT>0
  • Line Location: PRTN+4
Function Call: WRITE
  • Prompt: ?62,$E(RMPFN(X),1,10)
  • Line Location: PRTN+4
Function Call: WRITE
  • Prompt: ?73,$E(RMPFLIS,1,6)
  • Condition for execution: CT=0
  • Line Location: PRTN+4
Function Call: WRITE
  • Prompt: ?73,$E(RMPFLIS,1,6)
  • Line Location: PRTN+5
Function Call: WRITE
  • Prompt: !?5,"Make",?17,"Model",?28,"Serial #",?48,"Type of Loss",?72,"Status",!?3,"---------",?14,"-----------",?27,"----------",?39,"-------------------------------",?72,"------"
  • Line Location: PRTT+0
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",$E(RMPFMAK,1,9),?14,$E(RMPFITP,1,11),?27,RMPFSN,?39,RMPFTOL,?72,$E(RMPFLIS,1,6)
  • Line Location: PRTT+1
Function Call: WRITE
  • Prompt: !?5,"Make",?19,"Model",?32,"Serial #",?43,"Recover Date",?57,"Ear",?62,"Status",!?3,"---------",?14,"---------------",?31,"----------",?43,"------------",?57,"---",?62,"------"
  • Line Location: PRTV+0
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",$E(RMPFMAK,1,9),?14,$E(RMPFITP,1,15),?31,$E(RMPFSN,1,10),?43,RMPFRED,?58,RMPFLR,?62,$E(RMPFLIS,1,6)
  • Line Location: PRTV+1
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",$E(RMPFITP,1,30),?34,$J(RMPFQTY,3),?38,$J((RMPFCOST*QT),7,2),?47,RMPFTT,?50,RMPFDIS,?60,RMPFDSN,?63,RMPFPCT,?70,RMPFPSC,?75,$E(RMPFLIS,1,5)
  • Line Location: PRTZ+5
Function Call: WRITE
  • Prompt: "[",CN,"]"
  • Condition for execution: $D(RMPFEDIT)&($D(CN))
  • Line Location: PRTJ+0
Function Call: WRITE
  • Prompt: !?11,"Prosthetic Item",?37,"Qty",?43,"Price",?51,"Status",!?3,"--------------------------------",?37,"---",?42,"-------",?51,"------"
  • Line Location: PRTJ+0
Function Call: WRITE
  • Prompt: !,$J(CX,2)," ",$E(RMPFITP,1,32),?37,$J(RMPFQTY,3),?42,$J((RMPFCOST*QT),7,2),?51,$E(RMPFLIS,1,6)
  • Line Location: PRTJ+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: "[",CN,"]"
  • Condition for execution: $D(RMPFEDIT)&$D(CN)
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?3,"-------",?11,"---------------",?27,"------",?34,"----------",?45,"-------",?53,"----------",?64,"----------",?75,"-----"
  • Line Location: LINE1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] PRTX+11
^RMPF(791811.2 - [#791811.2] PRTX+3

Label References

Name Line Occurrences
HEAD PRTG, PRTX, PRTT
LINE1 PRTG
PRTQ PRTW

Naked Globals

Name Field # of Occurrence
^(0 PRTX+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CM PRTM+4*
>> CN PRTB+1, PRTD, PRTM+1, PRTQ, PRTZ, PRTJ, HEAD
>> CT PRTG+5*, PRTG+6, PRTX+7, PRTX+8, PRTX+9*, PRTN+4*
>> CX PRTB, PRTB+3, PRTD, PRTD+1, PRTG, PRTG+1, PRTM, PRTM+3, PRTQ, PRTQ+1
, PRTX, PRTX+1, PRTX+6, PRTN, PRTN+3, PRTT, PRTT+1, PRTV, PRTV+1, PRTZ
, PRTZ+4, PRTZ+5, PRTJ, PRTJ+1, PRTJ+2
>> K PRTG+4*, PRTX+2*, PRTN+4*
>> QT PRTZ+5, PRTJ+2
>> RMPFACQD PRTG+3
>> RMPFBAT PRTG+2, PRTN+3
>> RMPFC( PRTX+2, PRTX+4
>> RMPFCERD PRTX+11
>> RMPFCERU PRTX+11
>> RMPFCOM PRTX+4*, PRTX+7
>> RMPFCOMC PRTX+4*, PRTX+5, PRTX+7
>> RMPFCOST PRTX+6, PRTZ+5, PRTJ+2
>> RMPFDIS PRTZ+5
>> RMPFDSN PRTZ+5
>> RMPFEDIT PRTB+1, PRTD, PRTM+1, PRTQ, PRTZ, PRTJ, HEAD
>> RMPFHAT LINE
>> RMPFISDP PRTX+8, PRTN+3
>> RMPFISRE PRTN+3
>> RMPFITP PRTB+3, PRTD+1, PRTG+1, PRTM+3, PRTQ+1, PRTX+1, PRTX+6, PRTN+3, PRTT+1, PRTV+1
, PRTZ+5, PRTJ+2
RMPFLIS PRTB+3, PRTD+1, PRTG+6!, PRTG+7, PRTM+5, PRTQ+1, PRTX+8, PRTN+4!, PRTN+5, PRTT+1
, PRTV+1, PRTZ+5, PRTJ+2
>> RMPFLR PRTX+8, PRTN+3, PRTV+1
>> RMPFMAK PRTG+1, PRTM+3, PRTX+1, PRTX+6, PRTN+3, PRTT+1, PRTV+1
>> RMPFN PRTG+4, PRTN+4
>> RMPFN( PRTG+4, PRTG+5, PRTN+4
>> RMPFOB PRTG+1
>> RMPFPCT PRTZ+5
>> RMPFPG PRTB+3
>> RMPFPSC PRTZ+5
>> RMPFQTY PRTB+3, PRTD+1, PRTM+3, PRTQ+1, PRTZ+5, PRTJ+2
>> RMPFRED PRTV+1
>> RMPFSN PRTG+2, PRTX+10, PRTX+11, PRTN+3, PRTT+1, PRTV+1
>> RMPFTOL PRTT+1
>> RMPFTOT PRTX*, PRTX+5*
>> RMPFTT PRTZ+5
>> RMPFX PRTX+11
>> RMPFY PRTX+11
>> S3 PRTX+3*, PRTX+4
U PRTX+2, PRTX+4, PRTX+11
>> X PRTG+4*, PRTG+5, PRTX+2*, PRTX+4, PRTN+4*
>> Y PRTX+2*, PRTX+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All