VPSPDO1 ;DALOI/KML,WOIFO/BT - PDO OUTPUT DISPLAY - ALLERGIES ;11/20/11 15:30
Source file <VPSPDO1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET(PDO,VPSNUM,VPSTYP) | ; RPC: VPS GET MRAR PDO
; INPUT ; PDO : the name of global array where each line of the MRAR output will be stored (e.g., "^TMP(""VPSPDO1"",$J)" ; VPSNUM : Parameter Value - patient SSN OR DFN OR ICN OR VIC/CAC (REQUIRED) ; VPSTYP : Parameter TYPE - SSN or DFN OR ICN OR VIC/CAC (REQUIRED) ; OUTPUT ; PDO : the name of global array where each line of the MRAR output will be stored |
|
| TIU(PTIEN,PDOARY) | ;TIU DOCUMENT: |VPS MRAR PDO|
; TIU OBJECT : S X=$$TIU^VPSPDO1(DFN,"^TMP(""VPSPDO1"",$J)") |
|
| GETPDO(PTIEN,PDOARY) | ;
; INPUT ; PTIEN : PATIENT DFN ; PDOARY : the name of global array where each line of the TIU will be stored |
|
| INITPDO(OREF) | ; initialize PDO object with date of LAST MRAR, STAFF flag
; INPUT ; OREF : Object Reference for the VPS PDO object ; RETURN ; 1 if successfull otherwise 0 |
|
| OKINVK(OREF) | ;Okay to Invoke PDO ?
; INPUT ; OREF : Object Reference for the VPS PDO object ; RETURN ; 1 if successfull otherwise 0 |
|
| GETINVPR(OREF) | ;get the PDO invocable period
; INPUT ; OREF : Object Reference for the VPS PDO object ; RETURN ; PDO invocable period if successfull otherwise 0 |
|
| GETPER(IDX,VAL,PRMTRXDT) | ;Get invocable period based on Kiosk Group and/or CLinic
; INPUT ; IDX : Index name to get the IEN of Kiosk Group or Clinic in File 853 ; VAL : either the Kiosk group or the Clinic IEN ; OUTPUT ; PRMTRXDT : The last transaction date in file 853 that contains Invocable period ; RETURN ; Invocable Period |
|
| UPDINVK(OREF,DTSTAMP) | ;update the PDO FIRST INVOKED or PDO INVOKED DT field
; INPUT ; OREF : Object Reference for the VPS PDO object ; DTSTAMP : Date/Time Stamp the PDO FIRST INVOKED or PDO INVOKED DT field ; RETURN ; 1 if successfull otherwise 0 |
|
| START(OREF) | ;allergy and medications section of the PDO output specifically for the PATIENT ENTERED ALLERGY MEDICATION REVIEW
; INPUT ; OREF : Object Reference for the VPS PDO object |
|
| HDR(OREF) | ; produce TIU Note header lines
; INPUT ; OREF : Object Reference for the VPS PDO object |
|
| CNDWTH(OREF) | ; produce Review conducted with lines
; INPUT ; OREF : Object Reference for the VPS PDO object |
|
| ALRLOCAL(OREF) | ;produce local allergy section
; INPUT ; OREF : Object Reference for the VPS PDO object |
|
| ALRREMTE(OREF) | ; produce remote allergies section
; INPUT ; OREF : Object Reference for the VPS PDO object |
|
| ADDALLER(OREF) | ; build additional allergies section
; INPUT ; OREF : Object Reference for the VPS PDO object |
|
| BLD(OREF,TYPE) | ; build local and remote allergy sections for Patient Entered allergy medication review note
; INPUT: ; OREF : Object Reference for the VPS PDO object ; TYPE : "LOCAL" or "REMOTE" |
|
| ALLRFLD(OREF,TYPE,ALRIEN) | ; Initialize allergy name, patient response, station, mark for followup
; INPUT ; OREF : Object Reference for the VPS PDO object ; TYPE : Type of Allergy data(LOCAL VISTA /REMOTE - CDW) ; ALRIEN : Allergy IEN |
|
| BLDALR(OREF,ALRIEN,TYPE) | ; build the allergy array to be used in CHANGES SINCE algorithm
; INPUT ; OREF : Object Reference for the VPS PDO object ; ALRIEN : Allergy IEN in File 853.52 ; TYPE : Type of Allergy data(LOCAL VISTA /REMOTE - CDW) |
|
| GETREACT(TYPE,REACTIEN,ALRIEN,LASTMRAR,PTIEN) | ; get reaction name
; INPUT ; TYPE : Type of Allergy data(LOCAL VISTA /REMOTE - CDW) ; REACTIEN : Allergy Reaction IEN in File 853.57 ; ALRIEN : Allergy IEN in File 853.52 ; LASTMRAR : Date of Last MRAR ; PTIEN : Patient DFN |
|
| ADALHDR(OREF,TYPE) | ; Add header for allergy items (do only once)
; INPUT ; OREF : Object Reference for the VPS PDO object ; TYPE : Type of Allergy data(LOCAL VISTA /REMOTE - CDW) |
|
| ADALFLDS(OREF,TYPE) | ; add other allergy fields
; INPUT ; OREF : Object Reference for the VPS PDO object ; TYPE : Type of Allergy data(LOCAL VISTA /REMOTE - CDW) |
|
| HS | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| RPC Name | Call Tags |
|---|---|
| VPS GET MRAR PDO | GET |
