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

Package: Prosthetics

Routine: RMPR421A


Information

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

Source Information

Source file <RMPR421A.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Prosthetics 4 KILL^RMPR421  FILE^RMPR421B  (,$$ENC)^RMPR4LI  EDT^RMPR4UTL  
VA FileMan 4 ^DIC  YN^DICN  ^DIE  ^DIR  
IFCAP 1 ADD^PRCH7B  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Prosthetics 3 RMPR421  RMPR421B  RMPR4P21  

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

External References

Name Field # of Occurrence
^DIC ITEM+5, L+2, LDIC
YN^DICN ASK5+2, ASK5+4, PR1+3, PR+1
^DIE P24+4, COT1, CHK+6, ASK+9, L+6, L+9, L+17
^DIR TRAN+1, PCAT+1, SPES+2, ITEM+3, ASK+4, L+14, VCON+1
ADD^PRCH7B IFCAP+4
KILL^RMPR421 P24+4, COT1, COT1+3, IFCAP+5, ITEM+3, ITEM+6, CHK+1, CHK+3, CHK+5, ASK+4
, ASK+8, ASK5+2, ASK5+4, L, L+8, L+10, L+18, VCON+3
FILE^RMPR421B ASK5+2
^RMPR4LI ASK5+5
$$ENC^RMPR4LI IFCAP+7
EDT^RMPR4UTL ITEM+6

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
Routine Call
  • DIC
  • Line Location:
    • ITEM+5
    • L+2
    • LDIC
Routine Call
  • DIE
  • Line Location:
    • P24+4
    • COT1
    • CHK+6
    • ASK+9
    • L+6
    • L+9
    • L+17
Routine Call
  • DIR
  • Line Location:
    • TRAN+1
    • PCAT+1
    • SPES+2
    • ITEM+3
    • ASK+4
    • L+14
    • VCON+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] COT1+2, VCON+4
^PRC(441 - [#441] ZDSP+1
^RMPR(661 - [#661] ZDSP+1
^RMPR(664 - [#664] COT+1, COT1+1, IFCAP+7*, IFCAP+9*, IFCAP+11*, TRAN+4, TRAN+5, PCAT+3, PCAT+4, ITEM+4
, CHK+1, CHK+2, CHK+4*, CHK+5, ASK+7*, ASK+8, ASK5+1, L+7, L+13, L+17
, L+18, ZDSP+1
^RMPR(669.9 - [#669.9] IFCAP+3

Label References

Name Line Occurrences
ASK ASK+5
ASK5 ASK5+3, ASK5+5, L+1, L+10
CHK TRAN+3, TRAN+4, PCAT+2, PCAT+3, SPES+2, ITEM+3, ITEM+4
HELP PR+2
HELP1 PR1+4
ITEM PCAT+5, ITEM+5
L L+1, L+3, L+18
L2 ITEM+6
PCAT PCAT+4
PR HELP
PR1 HELP1+1, PR+1, PR+2
TRAN TRAN+5
VCON COT1+2, VCON+2, VCON+4
ZDSP L+1

Naked Globals

Name Field # of Occurrence
^( CHK+2, L+7, ZDSP+1
^(0 CHK+2, L+7
^(3 COT+1*, L+17*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK5*, ASK5+2, ASK5+3, ASK5+4*, PR1+1*, PR1+3, PR1+4, PR1+5, PR+1*, PR+2
, PR+3
%DT P24+3!
DA CHK+6*, ASK+9*, L+3!, L+5*, L+6!, L+9!*, L+13, L+17*, VCON+5!
DA(1 L+2*, L+5*
>> DIC ITEM+5*, L+2*, LDIC*
>> DIC("W" LDIC*
>> DIC(0 ITEM+5*, L+2*, LDIC*
>> DIE CHK+6*, ASK+9*, L+6*, L+9*, L+17*
DIR TRAN!, PCAT!, PCAT+5!, SPES+4!, ITEM+1!, ASK+1!, ASK+4!, L+14!, VCON+1!, VCON+5!
DIR("?" ITEM+2*
DIR("A" TRAN+1*, PCAT+1*, SPES+1*, ITEM+1*, ASK+3*, L+12*
DIR("B" L+13*, VCON+2*
DIR(0 TRAN*, PCAT*, SPES*, ITEM+1*, ASK+2*, L+11*, VCON+1*
>> DIRUT ITEM+4, ASK+5
>> DR P24+4*, COT+2*, CHK+6*, ASK+9*, L+5*, L+9*, L+17*, VCON+4*
DT VCON+4
DTIME L
>> DTOUT P24+4, COT1, TRAN+3, PCAT+2, SPES+2, ITEM+3, ITEM+6, ASK+4, ASK+8, ASK5+2
, ASK5+4, L+10, L+15, L+18
>> DUOUT TRAN+3, PCAT+2, SPES+2, ITEM+3, CHK+5, L+10, L+15
DUZ IFCAP+7, CHK+4
>> FL CHK*, CHK+2*, CHK+3, L+7*, L+8
PRCA IFCAP+3*, IFCAP+4, IFCAP+5!, IFCAP+7, IFCAP+9, IFCAP+11, IFCAP+12!
RAC ZDSP+1!, ZDSP+2
RAC( ZDSP+1*, ZDSP+2
RFL CHK!, LDIC!
>> RI CHK+2*, L+7*, ZDSP+2*
>> RMCAT PCAT+5*, SPES+2, SPES+3
>> RMPRA COT+1, COT1+1, IFCAP+5, IFCAP+7, IFCAP+9, IFCAP+11, TRAN+4, TRAN+5, PCAT+3, PCAT+4
, ITEM+4, CHK+1, CHK+2, CHK+4, CHK+5, CHK+6, ASK+7, ASK+8, ASK+9, ASK5+1
, L+2, L+5, L+6, L+7, L+9, L+17, L+18, ZDSP+1
>> RMPRCONT L+4*, VCON+6*
>> RMPRCTK L+4, VCON+6*
>> RMPRDELN ASK+7*, ASK+8*, L+16*, L+18*
>> RMPRDFN ASK5+1*
>> RMPRI ZDSP+1*
>> RMPRI1 ZDSP+1*
>> RMPRIT ZDSP+1*
>> RMPRK IFCAP+5*
>> RMPRPN PR1+1*, PR1+3*
>> RMPRPRIV PR+1*
>> RMPRSITE IFCAP+3
>> RMPRV COT1+1*, COT1+2, COT1+3, IFCAP+3, VCON+1, VCON+4
>> RMPRX ASK5+5
>> RMSPE SPES+3*
>> RMTYPE TRAN+6*
U COT1+1, IFCAP+3, IFCAP+7, IFCAP+9, IFCAP+11, CHK+2, CHK+4, ASK+7, ASK+8, ASK5+1
, L+7, L+13, L+18, ZDSP+1, VCON+4, VCON+6
>> X ASK+5, L*, L+1, LDIC*, VCON+2, VCON+3
Y P24+4, COT1, TRAN+4, TRAN+5, TRAN+6, PCAT+3, PCAT+4, PCAT+5, SPES+3, ITEM+5
, ASK+7, ASK+8, L+3!, L+5, L+17, VCON+2, VCON+4, VCON+6
Y(0 ASK+7, L+16
Y1 L+17*, L+18!
Info |  Source |  Call Graph |  Caller 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