Routine: VPSPDO1

Entry Points

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	Prompt: !,@TARGET@(I,0) Line Location: HS+5
Function Call: WRITE	Prompt: !! Line Location: HS+6

FileNo	Call Tags
^GMR(120.8 - [#120.8]	GET1^DIQ
853.51	GET1^DIQ
853.5121	GET1^DIQ
853.52	GET1^DIQ
853.57	GET1^DIQ

Customize PDF page

Package: VA Point of Service

Routine: VPSPDO1

Information

Source Information

Entry Points

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call