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

Package: PCE Patient Care Encounter

Routine: PXQMAIN


Information

PXQMAIN ;ISL/JVS - DEBUGGINH MAIN ROUTINE #1;8/29/96 10:32

Source Information

Source file <PXQMAIN.m>

Entry Points

Name Comments DBIA/ICR reference
DEPEN ;--1ST OPTION
DEP ;--TITLE OF PRINT OUT
EXPAND ;--2ND OPTION
EXP ;--TITLE OF PRINT OUT
INTER ;--3RD OPTION
INT ;--TITLE OF PRINT OUT
SOURCE ;--4TH OPTION
SOR ;--TITLE OF PRINT OUT
VISIT ;--5TH OPTION
CLOSE ;--CLOSE DEVICE
MAX ;--MAXIMUM LENGTH OF GLOBAL REFERENCE
SETUP ;--7TH OPTION
SET7 ;---START
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("** D E P E N D E N T E N T R Y C O U N T **")
  • Line Location: DEP+1
Function Call: WRITE
  • Prompt: $$EXP^PXQUTL("^AUPNVSIT(",IEN)
  • Line Location: DEP+3
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" DEPENDENT ENTRY COUNT --- FOR VISIT "_IEN)
  • Line Location: DEP+4
Function Call: WRITE
  • Prompt: $$DEC^PXQFV(IEN,1,"")
  • Line Location: DEP+5
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("** E X P A N D E D D E P E N D E N T E N T R Y C O U N T **")
  • Line Location: EXP+1
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  • Line Location: EXP+3
Function Call: WRITE
  • Prompt: $$DEC^PXQFV(IEN,1,1)
  • Line Location: EXP+4
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("** E X P A N D E D D E P E N D E N T E N T R Y C O U N T **")
  • Line Location: INT+1
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  • Line Location: INT+3
Function Call: WRITE
  • Prompt: $$DEC^PXQFV(IEN,1,1)
  • Line Location: INT+4
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("** S O U R C E S / A U D I T T R A I L **")
  • Line Location: SOR+1
Function Call: WRITE
  • Prompt: $$SOR^PXQUTL(VISIT)
  • Line Location: SOR+3
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN)
  • Line Location: SOR+5
Function Call: WRITE
  • Prompt: $$DEC^PXQFV(IEN,1,1)
  • Line Location: SOR+6
Function Call: WRITE
  • Prompt: !," I M F O R M A T I O N O N L Y"
  • Line Location: MAX+1
Function Call: WRITE
  • Prompt: !,"This routine can only be run buy someone who is"
  • Line Location: MAX+2
Function Call: WRITE
  • Prompt: !,"AUTHORIZED to be in progammer mode. If you run"
  • Line Location: MAX+3
Function Call: WRITE
  • Prompt: !,"the routine, 'D ^PXQGRLT' ,it will error out when"
  • Line Location: MAX+4
Function Call: WRITE
  • Prompt: !,"the mazimum length is reached."
  • Line Location: MAX+5
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("** P A R A M E T E R S S E T U P **")
  • Line Location: SETUP+3
Function Call: WRITE
  • Prompt: $$EXP^PXQUTL("^DIC(",150.9)
  • Line Location: SET7+2
Function Call: WRITE
  • Prompt: $$EXP^PXQUTL("^PX(",815)
  • Line Location: SET7+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(150.9 - [#150.9] Classic Fileman Calls
^PX(815 - [#815] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call