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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLR1009P

Package: IHS Changes To Lab

Routine: BLR1009P


Information

BLR1009P ;POST LR PATCH 9 TO FIX .90 MODIFIER IN LAB CPT FILE[ 10/05/1999 9:28 AM ]

Source Information

Source file <BLR1009P.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 (FILE,YN)^DICN  ^DIK  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
OK
EOJ ;kill
A1 ;get entry
A3 ;get MODIFIER
A2 ;get CPT
A4 ;deletes .90 entry and adds 90 entry
ENTER ;enter new entry
ASK ;ASK USER TO CONVERT
DELETE ;delete old entry

External References

Name Field # of Occurrence
FILE^DICN ENTER+3
YN^DICN ASK+1, OK
^DIK DELETE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you want to convert the IHS LAB CPT FILE MODIFIERS from .90 to 90?"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Answer NO if you are unsure, or '^' to quit.",!
  • Condition for execution: %=0
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"You can run this fix at a later date (D ^BLR1009P )",!!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Is everything OK"
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !,"Answer NO if you are unsure, or '^' to quit.",!
  • Condition for execution: %=0
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"This will take about one minute..."
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!,"The entries have been changed...",!!
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BLRCPT - [#9009021] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRCPT - [#9009021] A1+1, A2+1, A3+1, DELETE+1

Label References

Name Line Occurrences
A1 BEGIN+1
A2 A1+1
A3 A2+1
A4 A3+1
ASK ASK+1, OK, OK+1
EOJ ASK+1, OK, BEGIN+3
OK ASK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1*, ASK+2, OK*, OK+1
>> DA DELETE+2*, ENTER+1*
>> DA(1 DELETE+2*, ENTER+1*
>> DA(2 DELETE+2*, ENTER+1*
DD ENTER+1!
>> DIC ENTER+2*
>> DIC("DR" ENTER+3*
>> DIC(0 ENTER+2*
>> DIK DELETE+2*
DO ENTER+1!
LRCPT A1+1*, A2+1*, A3+1, DELETE+1, DELETE+2, ENTER+1, EOJ+1!
LRENT BEGIN+1*, A1+1*, A2+1, A3+1, DELETE+1, DELETE+2, ENTER+1, EOJ+1!
LRMOD A2+1*, A3+1*, DELETE+1, DELETE+2, ENTER+1, EOJ+1!
U DELETE+1
>> X ENTER+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All