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

Package: Prosthetics

Routine: RMPR421A


Information

RMPR421A ;PHX/HNB -CONT. CREATE PURCHASE CARD TRANSACTION ;3/1/1996

Source Information

Source file <RMPR421A.m>

Entry Points

Name Comments DBIA/ICR reference
P24 ;DATE REQUIRED
COT ;CONTRACT AUTHORITY
COT1
IFCAP ;call PRCH7B here
L2 ;edit
TRAN
PCAT
SPES
ITEM ;
CHK
ASK ;deliver to
ASK5
L
ZDSP ;MULTIPLE ITEM DISPLAY FOR PURCHASING AND CLOSE-OUT
LDIC
PR1 ;PRINT PATIENT NOTIFICATION LETTER
VCON ;vendor contract
HELP1 ;
PR ;PRINT THE PRIVACY ACT STATEMENT
HELP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Can Not Continue without a Vendor!"
  • Line Location: COT1+3
Function Call: WRITE
  • Prompt: !,"------------------------------",!
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !,"Please enter type of Transaction!!"
  • Line Location: TRAN+5
Function Call: WRITE
  • Prompt: !,"Please enter Patient Category!!"
  • Line Location: PCAT+4
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Please Try Later!"
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: $C(7),"Delivery is required. Enter '?' for additional help."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,"Are you ready to POST to 10-2319 NOW"
  • Line Location: ASK5+0
Function Call: WRITE
  • Prompt: !,"This will Create an Entry on the Prosthetic 10-2319 Record"
  • Line Location: ASK5+3
Function Call: READ
  • Prompt: !
  • Variable: "Do you want to Delete this Transaction" D YN^DICN G
  • Timeout: $D(DTOUT)!(%=1)
  • Line Location: ASK5+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"REQUIRED ITEMS DO NOT EXIST ON THIS FORM",!
  • Line Location: L+8
Function Call: WRITE
  • Prompt: !,?5,RI,?10,RAC(RI)
  • Line Location: ZDSP+2
Function Call: WRITE
  • Prompt: $C(7),!,"Sorry, contract has expired. Enter another contract or `return` to continue."
  • Line Location: VCON+4
Function Call: WRITE
  • Prompt: !,"Enter `Y` for YES to print the Patient Notification letter",!,"`N` for No if you do not wish to print the letter."
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !,"Enter `Y` for YES to print the Privacy Act Statement",!,"`N` for NO if you do not want to print the statement."
  • Line Location: HELP+0

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