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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Prosthetics 5 KILL^RMPR21  FILE^RMPR21B  DEL^RMPR29M  ^RMPRLI  EDT^RMPRUTIL  
VA FileMan 4 ^DIC  YN^DICN  ^DIE  ^DIR  
Kernel 1 HOME^%ZIS  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS RMPRL9+2
^DIC L2
YN^DICN ASK5, ASK5+2
^DIE COT, COT+5, COT+10
^DIR L2, COT+1, COT+8, EXIT
KILL^RMPR21 ASK5+2, EXIT
FILE^RMPR21B ASK5
DEL^RMPR29M ASK5+2, EXIT
^RMPRLI C21+2
EDT^RMPRUTIL L2+1

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
Routine Call
  • %ZIS
  • Line Location:
    • RMPRL9+2
Routine Call
  • DIC
  • Line Location:
    • L2
Routine Call
  • DIE
  • Line Location:
    • COT
    • COT+5
    • COT+10
Routine Call
  • DIR
  • Line Location:
    • L2
    • COT+1
    • COT+8
    • EXIT

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] COT+1, COT+3
^PRC(441 - [#441] PRT+3
^PRCD(420.5 - [#420.5] PRT+7
^RMPR(660 - [#660] PRT+5
^RMPR(661 - [#661] PRT+2, PRT+3
^RMPR(664 - [#664] LI, PRT+5, C21+1, COT+1, COT+9*, COT+10*, CHK, CHK+1
^UTILITY("DIQ1" RMPRL9+3

Label References

Name Line Occurrences
ASK5 ASK5+1
C21 ASK5+3
CHK C21+2, COT, COT+2, COT+5, COT+8, COT+9
COT L2, COT+1, COT+3
EXIT L2, L2+1, COT+5, COT+8, COT+10, CHK+1, CHK+2, ASK5
L2 L2, L2+1, COT+1
PRT LI

Naked Globals

Name Field # of Occurrence
^( C21+1, CHK
^(0 PRT+3, PRT+5, C21+1, CHK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK5*, ASK5+1, ASK5+2*
DA COT*, COT+4!, COT+5!*, COT+10*
>> DIC L2*
>> DIC(0 L2*
>> DIE COT*, COT+5*, COT+10*
DIR L2!, COT+1!, COT+4!, COT+6!, EXIT!
DIR("?" L2*
DIR("A" L2*, COT+7*, EXIT*
DIR("B" COT+1*, COT+6*, EXIT*
DIR(0 L2*, COT+1*, COT+7*, EXIT*
>> DIRUT L2, COT+8
>> DR COT*, COT+5*, COT+10*
DT COT+3
DTIME ASK
>> DTOUT L2, L2+1, COT, COT+5, COT+8, COT+10, ASK5, ASK5+2, EXIT
FL C21+2!, CHK*, CHK+2
IOF RMPRL9+2
IOM RMPRL9+4
>> LINE RMPRL9+4*, RMPRL9+5
>> R1 PRT+8*
>> R2 PRT+8*
>> RI CHK*
>> RMPRA LI, PRT+5, C21+1, COT, COT+1, COT+5, COT+9, COT+10, CHK, CHK+1
, ASK5+2, EXIT
>> RMPRAMIS PRT+3*
>> RMPRCNT RMPRL9+2*, LI*, PRT
>> RMPRCONT C21+1*, COT+1, COT+4*
>> RMPRCTK COT+4*
>> RMPRDA RMPRL9+3
>> RMPRDELN RMPRL9+2*, COT+6, COT+9*
RMPRDLC COT+9!, COT+10*
>> RMPRI RMPRL9+2*, LI*, PRT+5
>> RMPRI1 LI*, PRT+2, PRT+3, PRT+4, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+12
>> RMPRIT PRT+2*, PRT+3
>> RMPRIT1 PRT+2*, PRT+3
>> RMPRSER RMPRL9+2*, PRT+5*
>> RMPRU PRT+7*
>> RMPRV COT+1*, COT+3
>> RMPRX RMPRL9+2*, LI, LI+1, LI+2, ASK*, C21+2
>> RT C21+1*
>> RZZZ RMPRL9+4*, LI+3, PRT+8*
U PRT+2, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+12
, C21+1, COT+1, COT+3, COT+4, COT+9, COT+10, CHK, CHK+1
>> X COT+1, COT+2
>> Y L2, COT, COT+1, COT+3, COT+4, COT+5, COT+9, EXIT
>> Y(0 COT+9
Info |  Source |  Call 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