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: RMPREOSA

Package: Prosthetics

Routine: RMPREOSA

Information

RMPREOSA ;HINES-IOFO/HNC,RN,ATG/JPN - Clone, Auto Adaptive, Clothing Allowance ;July 29, 2020@10:00

Source Information

Source file <RMPREOSA.m>

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Add Auto Adaptive Suspense ; ; VSR (RN) patch RMPR3.0200 change four slashes to three slashes for validation before filing adding back tic to station
EX
EN1	;Add Clothing Allowance Suspense
EN2	;Create Clone CPRS Suspense
ST2
KILL	;get rid of new clone if error

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),?5,!,"Someone else is editing this record" Line Location: EN+8
Function Call: WRITE	Prompt: !,$C(7),?5,"Deleted..." Line Location: EN+10
Function Call: WRITE	Prompt: $C(7),?5,!,"Someone else is editing this record" Line Location: EN1+8
Function Call: WRITE	Prompt: !,$C(7),?5,"Deleted..." Line Location: EN1+10
Function Call: WRITE	Prompt: !!!,"Only CPRS Suspense Can Be Cloned!",!! Line Location: EN2+4
Function Call: WRITE	Prompt: !!!,"This was a Manual Request, not a CPRS Suspense. Please create another Manual.",!! Line Location: EN2+5
Function Call: WRITE	Prompt: !,ERROR("DIERR",1,"TEXT",1),!,"Could NOT CLONE DUE TO BAD DATA!" Line Location: ST2+67
Function Call: WRITE	Prompt: $C(7),?5,!,"Someone else is editing this record" Line Location: ST2+72
Function Call: WRITE	Prompt: !!,"Done... Please select a device to print the new SUSPENSE Record." Line Location: ST2+75
Function Call: WRITE	Prompt: @IOF Line Location: ST2+82

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RMPR(668 - [#668]	Classic Fileman Calls, GETS^DIQ

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call