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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: QAOSCNV1

Package: Occurrence Screen

Routine: QAOSCNV1


Information

QAOSCNV1 ;HISC/DAD-DELETE OLD OCCURRENCE SCREEN FILES/FIELDS ;8/10/93 10:12

Source Information

Source file <QAOSCNV1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 YN^DICN  ^DIE  ^DIK  EN^DIU2  

Entry Points

Name Comments DBIA/ICR reference
ASKDEL ;
740 ;
741 ;
107 ;
EXIT ;
SHOWFILE ;
DELFILE ;
SHOWFLDS ;
DELFLDS ;
FLDS ;;FIELDS IN 513.72 TO BE DELETED ^ 'M' IF FIELD IS MULTIPLE

External References

Name Field # of Occurrence
YN^DICN ASKDEL+1
^DIE 107+7
^DIK 740+5, 740+7, 741+5, 741+7, 741+9, DELFLDS+9
EN^DIU2 DELFILE+5, DELFLDS+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Delete version 1.01 Occurrence Screen files/fields"
  • Line Location: QAOSCNV1+5
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------",!
  • Line Location: QAOSCNV1+6
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to continue"
  • Line Location: ASKDEL+1
Function Call: WRITE
  • Prompt: *7,!!!?24,"*** EXITING THE INIT PROCESS ***"
  • Line Location: ASKDEL+3
Function Call: WRITE
  • Prompt: !!?12,"Occurrence Screen V3.0 may not be installed until after"
  • Line Location: ASKDEL+4
Function Call: WRITE
  • Prompt: !?14,"the successful completion of the pre-init routine !!",*7
  • Line Location: ASKDEL+5
Function Call: WRITE
  • Prompt: !!?5,"Answer Y(es) to delete the items displayed,"
  • Line Location: ASKDEL+9
Function Call: WRITE
  • Prompt: !?5,"and continue with the installation."
  • Line Location: ASKDEL+10
Function Call: WRITE
  • Prompt: !!?5,"Answering N(o) will leave the files untouched"
  • Line Location: ASKDEL+11
Function Call: WRITE
  • Prompt: !?5,"and abort the installation."
  • Line Location: ASKDEL+12
Function Call: WRITE
  • Prompt: !!,"Delete OS/2.5 temporary conversion fields from file #740"
  • Line Location: 740+2
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------",!
  • Line Location: 740+3
Function Call: WRITE
  • Prompt: !?5,"Field: 741.97 - ",$P($G(^DD(740,741.97,0)),"^")
  • Line Location: 740+4
Function Call: WRITE
  • Prompt: !?5,"Field: 741.98 - ",$P($G(^DD(740,741.98,0)),"^")
  • Line Location: 740+6
Function Call: WRITE
  • Prompt: !!,"Kill the 'AC', 'AF' and 'AE' cross references in file #741"
  • Line Location: 741+2
Function Call: WRITE
  • Prompt: !,"----------------------------------------------------------",!
  • Line Location: 741+3
Function Call: WRITE
  • Prompt: !?5,"Xref: 'AC'"
  • Line Location: 741+5
Function Call: WRITE
  • Prompt: " killed"
  • Line Location: 741+5
Function Call: WRITE
  • Prompt: !?5,"Xref: 'AF'"
  • Line Location: 741+7
Function Call: WRITE
  • Prompt: " killed"
  • Line Location: 741+7
Function Call: WRITE
  • Prompt: !?5,"Xref: 'AE'"
  • Line Location: 741+9
Function Call: WRITE
  • Prompt: " killed"
  • Line Location: 741+9
Function Call: WRITE
  • Prompt: !!,"Convert screen 107 to return to O.R. within 7 days"
  • Line Location: 107+2
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------",!
  • Line Location: 107+3
Function Call: WRITE
  • Prompt: !?5,QA
  • Line Location: 107+5
Function Call: WRITE
  • Prompt: !!,"The following files are about to be deleted:",!
  • Line Location: SHOWFILE+1
Function Call: WRITE
  • Prompt: !!,"Deleting files:",!
  • Line Location: DELFILE+1
Function Call: WRITE
  • Prompt: !?5,QAOSDD,?14,$P(QAOSDD(QAOSDD),"^",3)
  • Line Location: DELFILE+4
Function Call: WRITE
  • Prompt: !!,"The following fields in the PATIENT QA EVENT file (#513.72)",!,"are about to be deleted:",!
  • Line Location: SHOWFLDS+1
Function Call: WRITE
  • Prompt: !?5,QAOSFLD,?14,$P(X,"^",2),$S($P(X,"^",3)="M":" (Mult)",1:"")
  • Line Location: SHOWFLDS+4
Function Call: WRITE
  • Prompt: !!,"Deleting fields in the PATIENT QA EVENT file (#513.72):",!
  • Line Location: DELFLDS+1
Function Call: WRITE
  • Prompt: !?5,QAOSFLD,?14,$P(X,"^",2),$S($P(X,"^",3)="M":" (Mult)",1:"")
  • Line Location: DELFLDS+4
Routine Call
  • DIE
  • Line Location:
    • 107+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(513.72 QAOSCNV1+3, DELFLDS+6
^DD(740 740+1, 740+4, 740+6
^DIC - [#1] QAOSCNV1+2
^QA(740 - [#740] 740+7!
^QA(741 - [#741] 741+1, 741+7!
^QA(741.1 - [#741.1] 107+1

Label References

Name Line Occurrences
107 741+1
740 QAOSCNV1+4
741 740+1
ASKDEL ASKDEL+8
DELFILE ASKDEL+15
DELFLDS ASKDEL+15
EXIT ASKDEL+2, 107+1
SHOWFILE QAOSCNV1+7, ASKDEL+13
SHOWFLDS QAOSCNV1+7, ASKDEL+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASKDEL+1*, ASKDEL+2, ASKDEL+8, EXIT+1!
DA 740+5*, 740+7*, 741+4!*, 741+6!*, 741+8!*, 107+6!*, EXIT+1!, DELFLDS+9*
DA(1 740+5*, 740+7*, 741+4*, 741+6*, 741+8*, DELFLDS+9*
DA(2 741+4*, 741+6*, 741+8*
DIC EXIT+1!
DIE 107+6!*
DIFQ ASKDEL+6!
DIK 740+5*, 740+7*, 741+4!*, 741+6!*, 741+8!*, EXIT+1!, DELFLDS+9*
DIU EXIT+1!, DELFILE+5*, DELFLDS+6*
DIU(0 DELFILE+5*, DELFLDS+6*
DR 107+6!*
>> QA 107+4*, 107+5, 107+6
QAOFFSET QAOSCNV1+3*, EXIT+1!
QAOSDD QAOSCNV1+2*, EXIT+1!, SHOWFILE+2*, DELFILE+2*, DELFILE+3, DELFILE+4, DELFILE+5
QAOSDD( QAOSCNV1+2*, SHOWFILE+2, DELFILE+3, DELFILE+4
QAOSDD(0 QAOSCNV1+2*, QAOSCNV1+4, QAOSCNV1+7, ASKDEL+13, ASKDEL+15
QAOSFLD QAOSCNV1+3*, EXIT+1!, SHOWFLDS+2*, SHOWFLDS+3, SHOWFLDS+4, DELFLDS+2*, DELFLDS+3, DELFLDS+4, DELFLDS+6, DELFLDS+9
QAOSFLD( QAOSCNV1+3*, SHOWFLDS+2, SHOWFLDS+3, DELFLDS+2, DELFLDS+3
QAOSFLD(0 QAOSCNV1+3*, QAOSCNV1+4, QAOSCNV1+7, ASKDEL+13, ASKDEL+15
X QAOSCNV1+2*, QAOSCNV1+3*, EXIT+1!, SHOWFLDS+3*, SHOWFLDS+4, DELFLDS+3*, DELFLDS+4, DELFLDS+5
Y EXIT+1!

Marked Items

Name Field # of Occurrence
$T(FLDS+QAOFFSET QAOSCNV1+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All