Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls