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

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

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
Info |  Source |  Entry Points |  Interaction Calls