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

Package: Prosthetics

Routine: RMPR21


Information

RMPR21 ;PHX/HNB/JLT - CREATE 1358 TRANSACTION, POST TO 2319 ;8/29/1994

Source Information

Source file <RMPR21.m>

Entry Points

Name Comments DBIA/ICR reference
ST
A
EN1
VIEW ;VIEW 10-2319
CON
CHK
ASK ;POST TRANSACTION QUESTION
DEL ;
L
H
CHK1 ;CHECK FOR EXISTENCE OF ITEMS ON PURCHASING FORMS
ERROR ;ERROR MESSAGE FOR FAILED POSTING
KILL ;DELETE PURCHASING ENTRY
TMP
EXIT ;EXIT AND KILL VARIABLES. SET UP OBLIGATION NUMBER QUESTION
EXT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: "Do you wish to Continue" D YN^DICN G
  • Timeout: %=1
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Please Try Later!"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!,"Are you ready to POST to IFCAP and 10-2319 NOW"
  • Line Location: ASK+1
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: ASK+3
Function Call: READ
  • Prompt: !
  • Variable: "Do you want to Delete this Transaction" D YN^DICN I $D(DTOUT)!(%=1) S
  • Timeout: $D(RMPRA)
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"ENTER YES OR NO!!",$C(7)
  • Line Location: DEL+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: L+12
Function Call: WRITE
  • Prompt: !,"This will create a transaction, post to IFCAP, and update the 2319 report",!
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,MSG,!
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !,$C(7),?5,"***PLEASE CONTACT YOUR FISCAL SERVICE***",!,Y
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !,$C(7),?20,"Deleted..."
  • Line Location: KILL+2

FileMan Files Accessed Via FileMan Db Call

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