Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: VPSPDO1

Package: VA Point of Service

Routine: VPSPDO1


Information

VPSPDO1 ;DALOI/KML,WOIFO/BT - PDO OUTPUT DISPLAY - ALLERGIES ;11/20/11 15:30

Source Information

Source file <VPSPDO1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Point of Service 7 ($$GETALRNM,$$GETDFN,$$GETLSTMR,$$GETMKFOL,$$GETPATRP,$$GETSTAFF,$$GETSTATN,$$NEW,ADDBLANK,ADDCJ,ADDLJ,ADDPDO,ADDUNDLN,CLOSE,GETALLR,GETFORMT,SETALLR,SETALRNM,SETDKNW,SETERR,SETLSTMR,SETMKFOL,SETPATRP,SETSTAFF,SETSTATN)^VPSOBJ  (MEDHDR,MEDS)^VPSPDO1M  (BLDADD,GETCH)^VPSPDO2  MEDCHNG^VPSPDO2M  ADDMEDS^VPSPDO3M  ($$SETFLD,REACT)^VPSPUTL1  $$VALIDATE^VPSRPC1  
VA FileMan 2 FILE^DIE  $$GET1^DIQ  
Kernel 1 ($$DT,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  

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 ;

External References

Name Field # of Occurrence
FILE^DIE UPDINVK+17
$$GET1^DIQ INITPDO+18, GETINVPR+10, GETINVPR+11, UPDINVK+11, CNDWTH+12, ADDALLER+10, ADDALLER+11, ALLRFLD+13, ALLRFLD+14, ALLRFLD+15
, ALLRFLD+20, ALLRFLD+25, ALLRFLD+30, GETREACT+10, GETREACT+11
$$GETALRNM^VPSOBJ BLDALR+9, ADALFLDS+6
$$GETDFN^VPSOBJ INITPDO+7, GETINVPR+6, UPDINVK+7, CNDWTH+5, ALRLOCAL+4, ALRREMTE+4, ADDALLER+4, BLD+5, ALLRFLD+6, BLDALR+7
$$GETLSTMR^VPSOBJ OKINVK+11, GETINVPR+7, UPDINVK+8, HDR+5, CNDWTH+6, ALRLOCAL+5, ALRREMTE+5, ADDALLER+5, BLD+6, ALLRFLD+7
, BLDALR+8
$$GETMKFOL^VPSOBJ ADALFLDS+9
$$GETPATRP^VPSOBJ ADALFLDS+7
$$GETSTAFF^VPSOBJ START+5, HDR+4, ALRLOCAL+15, ADDALLER+6, ALLRFLD+8, BLDALR+6, ADALFLDS+5
$$GETSTATN^VPSOBJ ADALFLDS+8
$$NEW^VPSOBJ GETPDO+6
ADDBLANK^VPSOBJ ALRLOCAL+7, ALRLOCAL+17, ALRREMTE+7, ALRREMTE+13, ADALFLDS+30
ADDCJ^VPSOBJ START+12, ALRLOCAL+18, ALRLOCAL+21, ALRREMTE+8
ADDLJ^VPSOBJ HDR+6, HDR+7, CNDWTH+16, ALRLOCAL+10, ALRLOCAL+11, ALRLOCAL+12, ALRLOCAL+13, ALRLOCAL+14, ALRLOCAL+16, ALRLOCAL+22
, ALRREMTE+12, ADDALLER+15, BLD+23, BLD+24
ADDPDO^VPSOBJ ADALHDR+11, ADALFLDS+21, ADALFLDS+28
ADDUNDLN^VPSOBJ HDR+8, CNDWTH+17
CLOSE^VPSOBJ GETPDO+21
GETALLR^VPSOBJ ADALFLDS+10
GETFORMT^VPSOBJ BLDALR+20, ADALHDR+5, ADALFLDS+12
SETALLR^VPSOBJ BLDALR+25
SETALRNM^VPSOBJ ALLRFLD+17
SETDKNW^VPSOBJ ADDALLER+12
SETERR^VPSOBJ INITPDO+8, INITPDO+9, INITPDO+12, OKINVK+18, GETINVPR+13, UPDINVK+22
SETLSTMR^VPSOBJ INITPDO+15
SETMKFOL^VPSOBJ ALLRFLD+31
SETPATRP^VPSOBJ ALLRFLD+22
SETSTAFF^VPSOBJ INITPDO+19
SETSTATN^VPSOBJ ALLRFLD+26
MEDHDR^VPSPDO1M START+20
MEDS^VPSPDO1M START+21
BLDADD^VPSPDO2 ADDALLER+14
GETCH^VPSPDO2 START+16
MEDCHNG^VPSPDO2M START+23
ADDMEDS^VPSPDO3M START+22
$$SETFLD^VPSPUTL1 ADALHDR+7, ADALHDR+8, ADALHDR+9, ADALHDR+10, ADALFLDS+15, ADALFLDS+16, ADALFLDS+17, ADALFLDS+18, ADALFLDS+19, ADALFLDS+20
, ADALFLDS+27
REACT^VPSPUTL1 BLDALR+21
$$VALIDATE^VPSRPC1 GET+13
$$DT^XLFDT OKINVK+12
$$FMDIFF^XLFDT OKINVK+13
$$FMTE^XLFDT OKINVK+18, HDR+6, HDR+7
$$NOW^XLFDT GETPDO+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,@TARGET@(I,0)
  • Line Location: HS+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HS+6
Routine Call
  • DIE
  • Line Location:
    • UPDINVK+17

Used in RPC

RPC Name Call Tags
VPS GET MRAR PDO GET

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("VPSPDO1" GET+9
^VPS(853 - [#853] GETPER+13, GETPER+17, GETPER+18
^VPS(853.5 - [#853.5] INITPDO+9, INITPDO+11, CNDWTH+11, ALRLOCAL+8, ALRREMTE+9, ADDALLER+8, ADDALLER+9, BLD+12, BLDALR+15

Label References

Name Line Occurrences
$$ALLRFLD BLD+14
$$GETINVPR OKINVK+7
$$GETPER GETINVPR+17, GETINVPR+18
$$GETREACT BLDALR+16
$$INITPDO GETPDO+9
$$OKINVK GETPDO+12
$$TIU HS+3
$$UPDINVK GETPDO+15
ADALFLDS BLD+20
ADALHDR BLD+19
ADDALLER START+15
ALRLOCAL START+13
ALRREMTE START+14
BLD ALRLOCAL+19, ALRREMTE+10
BLDALR BLD+17
CNDWTH START+9
GETPDO GET+15, TIU+8
HDR START+6
START GETPDO+18

Naked Globals

Name Field # of Occurrence
^( BLD+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE OKINVK+13~*, OKINVK+17
ALLR ADALFLDS+10~
ALLR( ADALFLDS+11
ALLRADD ADDALLER+8~*, ADDALLER+14, ADDALLER+15
ALLRITMS BLDALR+11~, BLDALR+25, BLDALR+26!
ALLRITMS( BLDALR+12*, BLDALR+17*, BLDALR+19, BLDALR+22*
ALLRNM ALLRFLD+11~, ALLRFLD+13*, ALLRFLD+14*, ALLRFLD+15*, ALLRFLD+16, ALLRFLD+17, BLDALR+9~*, BLDALR+12, BLDALR+17, BLDALR+19
, BLDALR+22
ALRID BLD+10~*, BLD+12*
ALRIEN BLD+10~*, BLD+12*, BLD+14, BLD+17, ALLRFLD~, ALLRFLD+13, ALLRFLD+15, ALLRFLD+20, ALLRFLD+25, ALLRFLD+30
, BLDALR~, BLDALR+15, BLDALR+16, BLDALR+21, GETREACT~, GETREACT+8
ALRNM ADALFLDS+6~*, ADALFLDS+11, ADALFLDS+18
BL ALRLOCAL+7~*
CLINIC GETINVPR+11~*, GETINVPR+12, GETINVPR+18
CLPER GETINVPR+18~*, GETINVPR+21
CLTRXDT GETINVPR+18~, GETINVPR+21
CNDWTH CNDWTH+9~*, CNDWTH+11*, CNDWTH+12
COL BLDALR+20~, BLDALR+21, ADALHDR+5~, ADALFLDS+12~
COL("ALLERNM" ADALHDR+8, ADALFLDS+18
COL("FOLLOWUP" ADALFLDS+15
COL("PATRESP" ADALHDR+7, ADALFLDS+16, ADALFLDS+17
COL("REACTION" ADALHDR+9, ADALFLDS+19, ADALFLDS+27
COL("SITE" ADALHDR+10, ADALFLDS+20
>> DFN HS+3
DONTKNOW ADDALLER+11~*, ADDALLER+12
DTSTAMP UPDINVK~, UPDINVK+15, UPDINVK+16
ERRNUM UPDINVK+21~*, UPDINVK+22
FINVKDT UPDINVK+11~*, UPDINVK+15, UPDINVK+16
>> GMTSQIT HS+7*
HDR BLD+8~*, BLD+19*
I HS+1~, HS+3*, HS+4*, HS+5*
IDX GETPER~, GETPER+12, GETPER+13
IENS GETREACT+8~*, GETREACT+10, GETREACT+11
KGPER GETINVPR+17~*, GETINVPR+21
KGTRXDT GETINVPR+17~, GETINVPR+21
KIOSKGRP GETINVPR+10~*, GETINVPR+12, GETINVPR+17
LASTMRAR INITPDO+11~*, INITPDO+12, INITPDO+15, INITPDO+18, INITPDO+21, OKINVK+11~*, OKINVK+13, OKINVK+18, GETINVPR+7~*, GETINVPR+10
, GETINVPR+11, UPDINVK+8~*, UPDINVK+11, UPDINVK+15, UPDINVK+16, CNDWTH+6~*, CNDWTH+11, CNDWTH+12, ALRLOCAL+5~*, ALRLOCAL+8
, ALRREMTE+5~*, ALRREMTE+9, ADDALLER+5~*, ADDALLER+8, ADDALLER+9, ADDALLER+10, ADDALLER+11, BLD+6~*, BLD+12, ALLRFLD+7~*
, ALLRFLD+13, ALLRFLD+15, ALLRFLD+20, ALLRFLD+25, ALLRFLD+30, BLDALR+8~*, BLDALR+15, BLDALR+16, BLDALR+21, GETREACT~
, GETREACT+8
LMRARDT HDR+5~*, HDR+6, HDR+7
LOCAL ALRLOCAL+8~*, ALRLOCAL+9, ALRLOCAL+20
MARKFOL ALLRFLD+29~*, ALLRFLD+30*, ALLRFLD+31, ADALFLDS+9~*, ADALFLDS+15
MEDITMS START+19~, START+21, START+23
NKDA ADDALLER+10~*, ADDALLER+15
NOALLER BLD+9~*, BLD+16*, BLD+22
NOREQFLD GETINVPR+12~*, GETINVPR+13, GETINVPR+14
OK OKINVK+17~*, OKINVK+18, OKINVK+19
OREF INITPDO~, INITPDO+7, INITPDO+8, INITPDO+9, INITPDO+12, INITPDO+15, INITPDO+19, OKINVK~, OKINVK+7, OKINVK+11
, OKINVK+18, GETINVPR~, GETINVPR+6, GETINVPR+7, GETINVPR+13, UPDINVK~, UPDINVK+7, UPDINVK+8, UPDINVK+22, START~
, START+5, START+6, START+9, START+12, START+13, START+14, START+15, START+16, START+20, START+21
, START+22, START+23, HDR~, HDR+4, HDR+5, HDR+6, HDR+7, HDR+8, CNDWTH~, CNDWTH+5
, CNDWTH+6, CNDWTH+16, CNDWTH+17, ALRLOCAL~, ALRLOCAL+4, ALRLOCAL+5, ALRLOCAL+7, ALRLOCAL+10, ALRLOCAL+11, ALRLOCAL+12
, ALRLOCAL+13, ALRLOCAL+14, ALRLOCAL+15, ALRLOCAL+16, ALRLOCAL+17, ALRLOCAL+18, ALRLOCAL+19, ALRLOCAL+21, ALRLOCAL+22, ALRREMTE~
, ALRREMTE+4, ALRREMTE+5, ALRREMTE+7, ALRREMTE+8, ALRREMTE+10, ALRREMTE+12, ALRREMTE+13, ADDALLER~, ADDALLER+4, ADDALLER+5
, ADDALLER+6, ADDALLER+12, ADDALLER+14, ADDALLER+15, BLD~, BLD+5, BLD+6, BLD+14, BLD+17, BLD+19
, BLD+20, BLD+23, BLD+24, ALLRFLD~, ALLRFLD+6, ALLRFLD+7, ALLRFLD+8, ALLRFLD+17, ALLRFLD+22, ALLRFLD+26
, ALLRFLD+31, BLDALR~, BLDALR+6, BLDALR+7, BLDALR+8, BLDALR+9, BLDALR+20, BLDALR+25, ADALHDR~, ADALHDR+5
, ADALHDR+11, ADALFLDS~, ADALFLDS+5, ADALFLDS+6, ADALFLDS+7, ADALFLDS+8, ADALFLDS+9, ADALFLDS+10, ADALFLDS+12, ADALFLDS+21
, ADALFLDS+28, ADALFLDS+30
PATRESP ALLRFLD+20~*, ALLRFLD+21*, ALLRFLD+22, ADALFLDS+7~*, ADALFLDS+16, ADALFLDS+17
PDO GET~, GET+9*, GET+10, GET+14, GET+15
PDOARY TIU~, TIU+8, TIU+9, GETPDO~, GETPDO+6
PDOOREF GETPDO+6~*, GETPDO+9, GETPDO+12, GETPDO+15, GETPDO+18, GETPDO+21
PERIOD OKINVK+7~*, OKINVK+8, OKINVK+17, OKINVK+18, GETINVPR+21~*, GETINVPR+22*, GETINVPR+23, GETPER+10~*, GETPER+12, GETPER+14
, GETPER+17, GETPER+18*, GETPER+20
PRMIEN GETPER+13~*, GETPER+14, GETPER+17, GETPER+18
PRMTRXDT GETPER~, GETPER+9*, GETPER+16*, GETPER+17*, GETPER+18, GETPER+19*
PTIEN TIU~, TIU+8, GETPDO~, GETPDO+6, INITPDO+7~*, INITPDO+8, INITPDO+9, INITPDO+11, INITPDO+18, GETINVPR+6~*
, GETINVPR+10, GETINVPR+11, UPDINVK+7~*, UPDINVK+11, UPDINVK+15, UPDINVK+16, CNDWTH+5~*, CNDWTH+11, CNDWTH+12, ALRLOCAL+4~*
, ALRLOCAL+8, ALRREMTE+4~*, ALRREMTE+9, ADDALLER+4~*, ADDALLER+8, ADDALLER+9, ADDALLER+10, ADDALLER+11, BLD+5~*, BLD+12
, ALLRFLD+6~*, ALLRFLD+13, ALLRFLD+15, ALLRFLD+20, ALLRFLD+25, ALLRFLD+30, BLDALR+7~*, BLDALR+15, BLDALR+16, BLDALR+21
, GETREACT~, GETREACT+8
REACT BLDALR+11~, BLDALR+21
REACT( BLDALR+16*, BLDALR+17
REACTIEN BLDALR+13~*, BLDALR+15*, BLDALR+16, BLDALR+17, GETREACT~, GETREACT+8
REACTLN BLDALR+21~, BLDALR+22, BLDALR+23!, ADALFLDS+11~*
REACTLN( ADALFLDS+26, ADALFLDS+27
REACTLN(1 ADALFLDS+19
REACTNM GETREACT+9~*, GETREACT+10*, GETREACT+11*, GETREACT+12
REMOTE ALRREMTE+9~*, ALRREMTE+10, ALRREMTE+11, ADDALLER+9~*, ADDALLER+15
RSS ADALFLDS+24~*, ADALFLDS+26*, ADALFLDS+27
STAFF INITPDO+18~*, INITPDO+19, START+5~*, START+9, HDR+4~*, HDR+6, HDR+7, ALRLOCAL+15~*, ALRLOCAL+16, ADDALLER+6~*
, ADDALLER+15, ALLRFLD+8~*, ALLRFLD+30, BLDALR+6~*, BLDALR+21, ADALFLDS+5~*, ADALFLDS+15, ADALFLDS+16, ADALFLDS+17
STATION ALLRFLD+25~*, ALLRFLD+26, ADALFLDS+8~*, ADALFLDS+20
STRING CNDWTH+8~*, CNDWTH+12*, CNDWTH+13*, CNDWTH+16
TARGET HS+1~, HS+2*, HS+3, HS+5
TRNDT OKINVK+12~*, OKINVK+13
TYPE BLD~, BLD+12, BLD+14, BLD+17, BLD+19, BLD+20, BLD+23, BLD+24, ALLRFLD~, ALLRFLD+12
, ALLRFLD+15, BLDALR~, BLDALR+16, GETREACT~, GETREACT+10, GETREACT+11, ADALHDR~, ADALHDR+10, ADALFLDS~, ADALFLDS+17
, ADALFLDS+20
U GET+14, GETPER+18
VAL GETPER~, GETPER+12, GETPER+13
VPSDFN GET+13~*, GET+14, GET+15
VPSERR UPDINVK+14~, UPDINVK+18
VPSERR("DIERR" UPDINVK+21, UPDINVK+22
VPSFDA UPDINVK+14~
VPSFDA( UPDINVK+15*, UPDINVK+16*
VPSNUM GET~, GET+11*, GET+13
VPSTYP GET~, GET+12*, GET+13
VPSX ADALHDR+6~*, ADALHDR+7*, ADALHDR+8*, ADALHDR+9*, ADALHDR+10*, ADALHDR+11, ADALFLDS+14~*, ADALFLDS+15*, ADALFLDS+16*, ADALFLDS+17*
, ADALFLDS+18*, ADALFLDS+19*, ADALFLDS+20*, ADALFLDS+21, ADALFLDS+25*, ADALFLDS+27*, ADALFLDS+28
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All