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

Package: Occurrence Screen

Routine: QAOSCNV3


Information

QAOSCNV3 ;HISC/DAD-ASSOCIATED ADMISSION, COMMENTS FIELDS & E XREF ;7/26/93 12:18

Source Information

Source file <QAOSCNV3.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 (IN5,KVAR)^VADPT  
VA FileMan 1 ^DIE  

Entry Points

Name Comments DBIA/ICR reference
EXIT ;
AADM ; ASSOCIATED ADMISSION & 'E' XREF
REVR ; REVIEWER MULTIPLE
CMTE ; COMMITTEE MULTIPLE
SPC(X) ; REMOVE LEADING AND TRAILING SPACES

External References

Name Field # of Occurrence
^DIE AADM+8
IN5^VADPT AADM+6
KVAR^VADPT EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Load ASSOCIATED ADMISSION field,"
  • Line Location: QAOSCNV3+3
Function Call: WRITE
  • Prompt: !,"convert COMMENTS to word processing"
  • Line Location: QAOSCNV3+4
Function Call: WRITE
  • Prompt: !,"and, index the 'E' cross reference"
  • Line Location: QAOSCNV3+5
Function Call: WRITE
  • Prompt: !,"-----------------------------------",!
  • Line Location: QAOSCNV3+6
Function Call: WRITE
  • Prompt: !!?5,"The associated admission dates will now be calculated for all"
  • Line Location: QAOSCNV3+7
Function Call: WRITE
  • Prompt: !?5,"Occurrence Screen records. The data is saved in the ASSOCIATED"
  • Line Location: QAOSCNV3+8
Function Call: WRITE
  • Prompt: !?5,"ADMISSION field (741,.02). Depending on the number of"
  • Line Location: QAOSCNV3+9
Function Call: WRITE
  • Prompt: !?5,"occurrences, this could take quite a while."
  • Line Location: QAOSCNV3+10
Function Call: WRITE
  • Prompt: !!?5,"Also, the data in the COMMENTS fields in the REVIEWER and"
  • Line Location: QAOSCNV3+11
Function Call: WRITE
  • Prompt: !?5,"COMMITTEE multiples (741.01,7 & 741.017,3) is copied to the"
  • Line Location: QAOSCNV3+12
Function Call: WRITE
  • Prompt: !?5,"new word processing COMMENTS fields (741.01,10 & 741.017,10)."
  • Line Location: QAOSCNV3+13
Function Call: WRITE
  • Prompt: !?5,"The old free text comments are deleted as they are converted."
  • Line Location: QAOSCNV3+14
Function Call: WRITE
  • Prompt: !?5,"The 'E' cross reference on the OCCURRENCE IDENTIFIER field"
  • Line Location: QAOSCNV3+15
Function Call: WRITE
  • Prompt: !?5,"(#741,2) will also be created."
  • Line Location: QAOSCNV3+16
Function Call: WRITE
  • Prompt: !!,"Working"
  • Line Location: QAOSCNV3+17
Routine Call
  • DIE
  • Line Location:
    • AADM+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(741 - [#741] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] AADM+7
^DPT - [#2] AADM+5
^QA(741 - [#741] QAOSCNV3+2, QAOSCNV3+17!, QAOSCNV3+18, AADM+1, AADM+2*, REVR+1, REVR+2, REVR+3, REVR+6*, REVR+9*
, REVR+10*, CMTE+1, CMTE+2, CMTE+3, CMTE+6*, CMTE+9*, CMTE+10*

Label References

Name Line Occurrences
$$SPC REVR+6, CMTE+6
AADM QAOSCNV3+20
CMTE QAOSCNV3+20
EXIT QAOSCNV3+2
REVR QAOSCNV3+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!
BEG EXIT+1!, SPC+1~, SPC+2*, SPC+4
DA EXIT+1!, AADM+8*
DFN EXIT+1!, AADM+6*
DIE EXIT+1!, AADM+8*
DR EXIT+1!, AADM+8*
END EXIT+1!, SPC+1~, SPC+3*, SPC+4
>> QAORECRD QAOSCNV3+17*, QAOSCNV3+19*
QAOSD0 QAOSCNV3+18*, EXIT+1!, AADM+1, AADM+2, AADM+8, REVR+1, REVR+2, REVR+3, REVR+6, REVR+9
, REVR+10, CMTE+1, CMTE+2, CMTE+3, CMTE+6, CMTE+9, CMTE+10
QAOSD1 EXIT+1!, REVR+1*, REVR+2, REVR+3, REVR+6, REVR+9, REVR+10, CMTE+1*, CMTE+2, CMTE+3
, CMTE+6, CMTE+9, CMTE+10
QAOSD2 EXIT+1!, REVR+4*, REVR+6, REVR+9, CMTE+4*, CMTE+6, CMTE+9
QAOSDATE EXIT+1!, AADM+4*, AADM+5, AADM+6, AADM+7
QAOSDFN EXIT+1!, AADM+4*, AADM+5, AADM+6
QAOSTEXT EXIT+2!, REVR+2*, REVR+3, REVR+4, REVR+5, REVR+7*, CMTE+2*, CMTE+3, CMTE+4, CMTE+5
, CMTE+7*
QAOSWORD EXIT+2!, REVR+5*, REVR+7, CMTE+5*, CMTE+7
QAOSZERO EXIT+2!, AADM+1*, AADM+2, AADM+3, AADM+4
VAIP AADM+6!
VAIP("D" AADM+6*
VAIP("M" AADM+6*
VAIP(1 AADM+7, AADM+8
VAIP(3 AADM+7
X EXIT+2!, AADM+2*, REVR+5*, REVR+6, CMTE+5*, CMTE+6, SPC~, SPC+2, SPC+3, SPC+4
Y EXIT+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