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

Package: PCE Patient Care Encounter

Routine: PXQPPUTIL


Information

PXQPPUTIL ;SLS/PKR - Utility for primary provider repair. ;08/14/2020

Source Information

Source file <PXQPPUTIL.m>

Entry Points

Name Comments DBIA/ICR reference
ASKCONTINUE() ;Ask the user if they want to continue.
DISCLAIMER ;Display the disclaimer.
DISPIMPTEXT(VISITIEN) ;
FINDEXAM(VISITIEN) ;Try to link the Visit to the Radiology Exam.
GETDATE(DEFAULT,PROMPT,MINDATE) ;Ask the user for a date.
OPENENCOUNTER(VISITIEN) ;Open the encounter in List Manger so the primary
PPREPAIR ;Find and repair encounters that do not have a primary provider.
LAB(VISITIEN,NPRIM,PRIMARY,PROVIDERLIST,CONTINUE) ;Handle Lab
RAD(VISITIEN,NPRIM,PRIMARY,PROVIDERLIST,RADPROXY,CONTINUE) ;Handle Radiology
RADPRIM(VISITIEN,PROVIDERLIST,PRIMARY) ;Set a primary provider for
RADPROXYPP(VISITIEN,CONTINUE) ;Radiology encounter has the proxy as the primary
SETONEPRIME(PROVIDERLIST) ;There is only one provider for the encounter

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"=============== NOTE ==============="
  • Line Location: DISCLAIMER+1
Function Call: WRITE
  • Prompt: !,"This utility searches for Lab and Radiology Encounters in the specified"
  • Line Location: DISCLAIMER+2
Function Call: WRITE
  • Prompt: !,"date range. Those that do not have a primary provider will be processed."
  • Line Location: DISCLAIMER+3
Function Call: WRITE
  • Prompt: !,"===================================="
  • Line Location: DISCLAIMER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISCLAIMER+5
Function Call: WRITE
  • Prompt: !,"No Radiology exam can be found for Visit IEN ",VISITIEN,"."
  • Line Location: DISPIMPTEXT+6
Function Call: WRITE
  • Prompt: !,"Therefore, no Impresion Text can be displayed."
  • Line Location: DISPIMPTEXT+7
Function Call: WRITE
  • Prompt: !,"No Radiology Reports were found for this encounter, cannot display the Impression Text."
  • Line Location: DISPIMPTEXT+24
Function Call: WRITE
  • Prompt: IORESET
  • Line Location: DISPIMPTEXT+42
Function Call: WRITE
  • Prompt: !,"Set the date range for searching for encounters."
  • Line Location: PPREPAIR+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] FIND1^DIC
70.02 GET1^DIQ
70.03 GET1^DIQ
^RARPT - [#74] GET1^DIQ
^PX(839.7 - [#839.7] FIND1^DIC
^DIC(9.4 - [#9.4] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call