PXQPPUTIL ;SLS/PKR - Utility for primary provider repair. ;08/14/2020
Source file <PXQPPUTIL.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |