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

Package: Prosthetics

Routine: RMPRS


Information

RMPRS ;PHX/HNC/RFM,RN,RVD,ATG/JPN-ADD SUSPENSE RECORD ;July 29, 2020@10:00

Source Information

Source file <RMPRS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;ADD SUSPENSE RECORD
; VSR (RN) patch RMPR*3.0*200 change four slashes to three slashes for validation before filing adding back tic to station
EX
CL ;CLOSE OUT SUSPENSE RECORD
EX1
EXIT
EN2 ;EDIT SUSPENSE RECORD
REV ;reverse look-up.--HNC--change to $O(^RMPR(668,"C",ien,n),-1)
ENT ;sort/display
PROC ;
INQ ;Inquire to Suspense entry point
EXT
ACT
LINK ;CLOSE OUT SUSPENSE ENTRY FOR SELECTED PATIENT
SUSP
WRI ;write
DIS ;continue
DICDPT ;ask patient from file #2
SMESS ;print message for mandatory suspense entry.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),?5,!,"Someone else is editing this record"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Deleted..."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: CL+5
Function Call: WRITE
  • Prompt: !!,"SUSPENSE RECORD WAS NOT CLOSED OUT",$C(7)
  • Line Location: EX1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EX1+1
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:"
  • Line Location: ENT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENT+9
Function Call: WRITE
  • Prompt: !!,"***** PATIENT HAS NO SUSPENSE RECORD!!!!"
  • Line Location: ENT+14
Function Call: WRITE
  • Prompt: !!,"***** NO SELECTION MADE!!!"
  • Line Location: ENT+15
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENT+17
Function Call: WRITE
  • Prompt: !!,"***** NO SELECTION MADE!!!"
  • Line Location: ENT+18
Function Call: WRITE
  • Prompt: !,$C(7),"****INVALID RESPONSE, Please choose a NUMBER within the range!!!!"
  • Line Location: ENT+19
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: " ",$$DAT1^RMPRUTL1(Y)
  • Line Location: PROC+5
Function Call: WRITE
  • Prompt: " ",VADM(1)
  • Line Location: PROC+7
Function Call: WRITE
  • Prompt: " ",$$STATUS^RMPREOU(+IEN)
  • Line Location: PROC+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INQ+2
Function Call: WRITE
  • Prompt: !,^RMPR(668,IEN,2,RO,0)
  • Line Location: EXT+0
Function Call: WRITE
  • Prompt: !!,"ACTION TAKEN: "
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !,^RMPR(668,IEN,3,RO,0)
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: "NONE RECORDED"
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: $C(7),!,"Suspense Records exist on this Patient. Do you wish to View/Edit them"
  • Line Location: SUSP+10
Function Call: WRITE
  • Prompt: !,"Answer `YES` or `NO`"
  • Line Location: SUSP+10
Function Call: WRITE
  • Prompt: !,RMI,".",?5,$$DAT1^RMPRUTL1(Y)
  • Line Location: WRI+4
Function Call: WRITE
  • Prompt: ?16,$E(VADM(1),1,19)
  • Line Location: WRI+6
Function Call: WRITE
  • Prompt: ?37,$$STATUS^RMPREOU(RMPR668,9)
  • Line Location: WRI+7
Function Call: WRITE
  • Prompt: ?48,$E(^RMPR(668,RMPR668,2,1,0),1,31)
  • Line Location: WRI+9

FileMan Files Accessed Via FileMan Db Call

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