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

Package: Occurrence Screen

Routine: QAOSCNV8


Information

QAOSCNV8 ;HISC/DAD-CONVERT REASONS FOR REFERRAL ;9/9/93 13:52

Source Information

Source file <QAOSCNV8.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP ;
REFER ;;SCREEN ^ OLD NUMBER ^ NEW NUMBER
1011 ;;101.1^10^99
102 ;;102^5^99

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Converting text of reasons for referral"
  • Line Location: QAOSCNV8+2
Function Call: WRITE
  • Prompt: !,"---------------------------------------"
  • Line Location: QAOSCNV8+3
Function Call: WRITE
  • Prompt: !!,"Screen: ",QAOSSCRN
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: " *** NOT FOUND ***"
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !?5,"Reason for referral code ==> "
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: "Old: ",$S(QAOSREAS("OLD")]"":QAOSREAS("OLD"),1:"??")
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: ?45,"New: ",QAOSREAS("NEW")
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: !?10,"Old text: ",$P($G(^QA(741.4,QAOSD0,2)),"^")
  • Line Location: LOOP+27
Function Call: WRITE
  • Prompt: !?10,"New text: ",QAOSTEXT("SHORT")
  • Line Location: LOOP+28

FileMan Files Accessed Via FileMan Db Call

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