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

Package: PCE Patient Care Encounter

Routine: PXQUTL


Information

PXQUTL ;ISL/JVS - FUNCTION CALLS FOR DEBUGGING UTILITIES;8/29/96 10:34 ;3/26/97 09:25

Source Information

Source file <PXQUTL.m>

Entry Points

Name Comments DBIA/ICR reference
LCFLE() ;--LOCATION FILES
PTFLE() ;--PATIENT FILES
RE(ENTRY) ;--RECORD ENTRY TO BE PRINTED
READ ;--READ
ASKPAT() ;Ask user for a patient
ASKNUM() ;Ask user for a VISIT
ASKNUM1() ;Ask user for a VISIT
ASKENC() ;Ask user for a ENCOUNTER
SOR(IEN) ;--SOURCE IF SELECTED FROM MENU
SDV ;--IF AN APPOINTMENT ON THAT DAY
CPT ;--PROCEDURES
CPT2 ;--COUNT PROCEDURES
EXP(ROOT,IEN) ;---EXPAND ENTRIES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"**************************************************************"
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: !,$O(^TMP("PXQRECORD",$J,I,0))
  • Line Location: READ+11
Function Call: WRITE
  • Prompt: !,@$O(^TMP("PXQRECORD",$J,I,0))
  • Line Location: READ+12
Function Call: WRITE
  • Prompt: !," END OF DISPLAY"
  • Line Location: READ+21
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("!")
  • Line Location: SOR+2
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("----------------VISIT "_IEN_"---SOURCES-------------")
  • Line Location: SOR+3
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("?5,""CREATED : ""_DATEC")
  • Line Location: SOR+9
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("?5,""EDITED : ""_DATEE")
  • Line Location: SOR+14
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("?5,""USER : ""_USER")
  • Line Location: SOR+18
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("______________________________________________________")
  • Line Location: SOR+40
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(ENTRY)
  • Line Location: SDV+15
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: SDV+34
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("THERE ARE PROCEDURES IN PCE BUT NO RECORD IN SCHEDULING **")
  • Line Location: CPT+1
Function Call: WRITE
  • Prompt: $$RE^PXQUTL($G(ENTRY))
  • Line Location: EXP+11
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: EXP+12
Info |  Source |  Entry Points |  Interaction Calls