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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPRL9

Package: Prosthetics

Routine: RMPRL9


Information

RMPRL9 ;PHX/HNB-DISPLAY ITEMS ON 1358 TRANSACTION ;8/29/1994

Source Information

Source file <RMPRL9.m>

Entry Points

Name Comments DBIA/ICR reference
LI
PRT
ASK
C21 ;COMPLETE 2421 REQUEST FROM LAB
L2
COT
CHK
ASK5
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?0,$E($G(^UTILITY("DIQ1",$J,664.1,RMPRDA,.02)),1,30),?40,"WORK ORDER #: ",$G(^UTILITY("DIQ1",$J,664.1,RMPRDA,4))
  • Line Location: RMPRL9+3
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: RMPRL9+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LI+1
Function Call: WRITE
  • Prompt: !,?25,"TOTAL COST: ",?65,"$",$J(RZZZ,0,2)
  • Line Location: LI+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LI+4
Function Call: WRITE
  • Prompt: !,"NO ITEMS ON FILE"
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !!?5,"ITEM: "
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !!?5,"DESCRIPTION: ",$P(RMPRI1,U,2)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !?5,"SERIAL NUMBER: "
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: RMPRSER
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !?5,"UNIT COST: ",$J($S($P(RMPRI1,U,7):$P(RMPRI1,U,7),1:$P(RMPRI1,U,3)),0,2),?25,"UNIT OF ISSUE: "
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?5,"TYPE: ",$S($P(RMPRI1,U,9)="X":"REPAIR",$P(RMPRI1,U,9)="I":"INITIAL",$P(RMPRI1,U,9)="R":"REPLACE",$P(RMPRI1,U,9)="S":"SPARE",$P(RMPRI1,U,9)="5":"RENTAL",1:"")
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: ?25,"CATEGORY: ",$S($P(RMPRI1,U,10)=1:"SC/OP",$P(RMPRI1,U,10)=2:"SC/IP",$P(RMPRI1,U,10)=3:"NSC/IP",$P(RMPRI1,U,10)=4:"NSC/OP",1:"")
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: ?44,"SPECIAL CATEGORY: "
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: $S($P(RMPRI1,U,11)=1:"SPEC/LEG",$P(RMPRI1,U,11)=2:"A&A",$P(RMPRI1,U,11)=3:"PHC",$P(RMPRI1,U,11)=4:"ELIG/REF",1:"")
  • Line Location: PRT+12
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!,"Sorry, contract has expired. Enter another contract or `return` to continue."
  • Line Location: COT+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Deliver To information is Missing!! 2421 is incomplete"
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"REQUIRED ITEM INFORMATION IS MISSING",!
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!,"Are you ready to POST to IFCAP and 10-2319 NOW"
  • Line Location: ASK5+0
Function Call: WRITE
  • Prompt: !,"This will Create a Daily Transaction in the 1358 Module of IFCAP,",!,"and Create an Entry on the Prosthetic 10-2319 Record"
  • Line Location: ASK5+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(661 - [#661] Classic Fileman Calls
^RMPR(664 - [#664] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call