VPSPDO3M ;DALOI/KML,WOIFO/BT - PDO OUTPUT DISPLAY - Additional MEDS ;11/20/11 15:30
Source file <VPSPDO3M.m>
Package | Total | Call Graph |
---|---|---|
VA Point of Service | 2 | ($$GETDFN,$$GETLSTMR,$$GETSTAFF,ADDBLANK,ADDCJ,ADDPDO,ADDUNDLN,GETFORMT)^VPSOBJ ($$SETFLD,FCOMM)^VPSPUTL1 |
VA FileMan | 1 | ($$GET1,GETS)^DIQ |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
VA Point of Service | 1 | VPSPDO1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADDMEDS(OREF) | ;produce additional meds section
; INPUT ; OREF : Object Reference for the VPS PDO object |
|
GETAM(OREF,AMEDITMS) | ||
AMVET(OREF,FLD) | ; add additional med data (veteran-facing) to result array
; INPUT ; OREF : Object Reference for the VPS PDO object ; FLD : array of additional medication data by fieldname |
|
AMSTAFF1(OREF,FLD) | ; add additional med data (staff-facing) to result array - first section
; INPUT ; OREF : Object Reference for the VPS PDO object ; FLD : array of additional medication data by fieldname |
|
AMSTAFF2(OREF,FLD) | ; add additional med data (staff) to result array - first section
; INPUT ; OREF : Object Reference for the VPS PDO object ; FLD : array of additional medication data by fieldname |
|
GETAMDTA(PTIEN,LMRARDT,AMEDITMS,FLD) | ; Build FLD array of Additional Med data
; INPUT ; AMEDITMS : passed in by reference. array represents the list of additional medications to display at a given section ; OUTPUT ; FLD : array of additional medication data by fieldname ; |
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | ADDMEDS+13, ADDMEDS+14, ADDMEDS+15, AMSTAFF1+28, AMSTAFF2+28 |
GETS^DIQ | GETAMDTA+8 |
$$GETDFN^VPSOBJ | ADDMEDS+4, GETAM+5, AMSTAFF1+6, AMSTAFF2+6 |
$$GETLSTMR^VPSOBJ | ADDMEDS+5, GETAM+6, AMSTAFF1+7, AMSTAFF2+7 |
$$GETSTAFF^VPSOBJ | ADDMEDS+6, GETAM+7 |
ADDBLANK^VPSOBJ | AMSTAFF1+44, AMSTAFF2+43 |
ADDCJ^VPSOBJ | GETAM+10 |
ADDPDO^VPSOBJ | AMVET+17, AMVET+22, AMVET+25, AMSTAFF1+18, AMSTAFF1+41, AMSTAFF2+19, AMSTAFF2+40 |
ADDUNDLN^VPSOBJ | GETAM+9 |
GETFORMT^VPSOBJ | AMVET+5, AMSTAFF1+5, AMSTAFF2+5 |
$$SETFLD^VPSPUTL1 | AMVET+14, AMVET+15, AMVET+16, AMVET+19, AMVET+20, AMVET+21, AMVET+24, AMSTAFF1+16, AMSTAFF1+17, AMSTAFF1+39 , AMSTAFF1+40, AMSTAFF2+17, AMSTAFF2+18, AMSTAFF2+38, AMSTAFF2+39 |
FCOMM^VPSPUTL1 | AMSTAFF1+24, AMSTAFF1+29, AMSTAFF2+24, AMSTAFF2+29 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("VPSPUTL1" | AMSTAFF1+24*, AMSTAFF1+29*, AMSTAFF2+24*, AMSTAFF2+29* |
^VPS(853.5 - [#853.5] | ADDMEDS+12 |
Name | Line Occurrences |
---|---|
AMSTAFF1 | GETAM+15 |
AMSTAFF2 | GETAM+15 |
AMVET | GETAM+14 |
GETAM | ADDMEDS+21, ADDMEDS+22 |
GETAMDTA | GETAM+12 |
Name | Field # of Occurrence |
---|---|
^( | ADDMEDS+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADMEDLST | GETAMDTA+8~, GETAMDTA+11! |
ADMEDLST( | GETAMDTA+10 |
ADMSTAFF | AMSTAFF2+38~ |
ADSTAFFC | AMSTAFF2+39~ |
AMEDITMS | GETAM~, GETAM+12, GETAMDTA~ |
AMEDITMS( | GETAMDTA+7 |
COL | AMVET+5~, AMSTAFF1+5~, AMSTAFF2+5~ |
COL("ADDMED" | AMSTAFF1+16, AMSTAFF1+24, AMSTAFF1+39 |
COL("ADDMEDSTAFF" | AMSTAFF2+17, AMSTAFF2+24, AMSTAFF2+38 |
COL("ADDSTAFFCOMM" | AMSTAFF1+17, AMSTAFF1+29, AMSTAFF1+40, AMSTAFF2+18, AMSTAFF2+29, AMSTAFF2+39 |
COL("DISCUSS" | AMVET+24 |
COL("MRDIR" | AMVET+15, AMVET+20 |
COL("MRFREQ" | AMVET+16, AMVET+21 |
COL("MRNAME" | AMVET+14, AMVET+19 |
COL1 | AMSTAFF1+32~*, AMSTAFF1+34, AMSTAFF2+32~*, AMSTAFF2+34 |
COL2 | AMSTAFF1+33~*, AMSTAFF1+34, AMSTAFF2+33~*, AMSTAFF2+34 |
END | AMSTAFF1+34~*, AMSTAFF1+37, AMSTAFF2+34~*, AMSTAFF2+36 |
>> EXTINT | GETAMDTA+10* |
FLD | GETAM+12~, GETAM+14, GETAM+15, AMVET~, AMSTAFF1~, AMSTAFF2~, GETAMDTA~, GETAMDTA+10* |
FLD( | AMVET+10, AMVET+19, AMVET+20, AMVET+21, AMVET+24, AMSTAFF1+14, AMSTAFF1+23, AMSTAFF2+14, AMSTAFF2+23, GETAMDTA+10* |
FLD1 | ADDMEDS+13~*, ADDMEDS+16 |
FLD2 | ADDMEDS+14~*, ADDMEDS+17 |
FLD3 | ADDMEDS+15~*, ADDMEDS+18 |
HDR | AMVET+6~*, AMVET+11, AMVET+12*, AMSTAFF1+10~*, AMSTAFF1+15, AMSTAFF1+19*, AMSTAFF2+10~*, AMSTAFF2+15, AMSTAFF2+20* |
LMRARDT | ADDMEDS+5~*, ADDMEDS+12, ADDMEDS+13, ADDMEDS+14, ADDMEDS+15, GETAM+6~*, GETAM+12, AMSTAFF1+7~*, AMSTAFF1+28, AMSTAFF2+7~* , AMSTAFF2+28, GETAMDTA~, GETAMDTA+8, GETAMDTA+10 |
M1 | ADDMEDS+9~*, ADDMEDS+12* |
M2 | ADDMEDS+10~*, ADDMEDS+12*, ADDMEDS+13, ADDMEDS+14, ADDMEDS+15, ADDMEDS+16, ADDMEDS+17, ADDMEDS+18 |
MIEN | AMVET+7~*, AMVET+10*, AMVET+19, AMVET+20, AMVET+21, AMVET+24, AMSTAFF1+11~*, AMSTAFF1+14*, AMSTAFF1+23, AMSTAFF1+28 , AMSTAFF2+11~*, AMSTAFF2+14*, AMSTAFF2+23, AMSTAFF2+28, GETAMDTA+6~*, GETAMDTA+7*, GETAMDTA+8, GETAMDTA+10 |
NSTAFADD | AMSTAFF2+22~, AMSTAFF2+24, AMSTAFF2+42! |
NSTAFADD( | AMSTAFF2+38 |
NSTAFADD("" | AMSTAFF2+32 |
NSTFCMT | AMSTAFF1+27~, AMSTAFF1+29, AMSTAFF1+43!, AMSTAFF2+27~, AMSTAFF2+29, AMSTAFF2+42! |
NSTFCMT( | AMSTAFF1+40, AMSTAFF2+39 |
NSTFCMT("" | AMSTAFF1+33, AMSTAFF2+33 |
NVETADD | AMSTAFF1+22~, AMSTAFF1+24, AMSTAFF1+43! |
NVETADD( | AMSTAFF1+39 |
NVETADD("" | AMSTAFF1+32 |
OREF | ADDMEDS~, ADDMEDS+4, ADDMEDS+5, ADDMEDS+6, ADDMEDS+21, ADDMEDS+22, GETAM~, GETAM+5, GETAM+6, GETAM+7 , GETAM+9, GETAM+10, GETAM+14, GETAM+15, AMVET~, AMVET+5, AMVET+17, AMVET+22, AMVET+25, AMSTAFF1~ , AMSTAFF1+5, AMSTAFF1+6, AMSTAFF1+7, AMSTAFF1+18, AMSTAFF1+41, AMSTAFF1+44, AMSTAFF2~, AMSTAFF2+5, AMSTAFF2+6, AMSTAFF2+7 , AMSTAFF2+19, AMSTAFF2+40, AMSTAFF2+43 |
PFVIEW | ADDMEDS+8~, ADDMEDS+20, ADDMEDS+21, ADDMEDS+23! |
PFVIEW( | ADDMEDS+16* |
PTIEN | ADDMEDS+4~*, ADDMEDS+12, ADDMEDS+13, ADDMEDS+14, ADDMEDS+15, GETAM+5~*, GETAM+12, AMSTAFF1+6~*, AMSTAFF1+28, AMSTAFF2+6~* , AMSTAFF2+28, GETAMDTA~, GETAMDTA+8, GETAMDTA+10 |
RSS | AMSTAFF1+35~, AMSTAFF1+37*, AMSTAFF1+39, AMSTAFF1+40, AMSTAFF2+35~, AMSTAFF2+36*, AMSTAFF2+38, AMSTAFF2+39 |
SFSTVIEW | ADDMEDS+8~, ADDMEDS+20, ADDMEDS+23! |
SFSTVIEW( | ADDMEDS+17* |
SFVTVIEW | ADDMEDS+8~, ADDMEDS+20, ADDMEDS+23! |
SFVTVIEW( | ADDMEDS+18* |
STAFF | ADDMEDS+6~*, ADDMEDS+21, ADDMEDS+22, GETAM+7~*, GETAM+14, GETAM+15 |
STAFFADD | AMSTAFF2+22~, AMSTAFF2+24, AMSTAFF2+42! |
STAFFADD(1 | AMSTAFF2+23* |
STAFMEDS | ADDMEDS+20~*, ADDMEDS+22 |
STFCMT | AMSTAFF1+28~*, AMSTAFF1+29, AMSTAFF1+43!, AMSTAFF2+27~, AMSTAFF2+28*, AMSTAFF2+29, AMSTAFF2+42! |
U | AMSTAFF1+24, AMSTAFF1+29, AMSTAFF2+24, AMSTAFF2+29 |
VETADD | AMSTAFF1+22~, AMSTAFF1+24, AMSTAFF1+43! |
VETADD(1 | AMSTAFF1+23* |
VPSX | AMVET+8~*, AMVET+13*, AMVET+14*, AMVET+15*, AMVET+16*, AMVET+17, AMVET+18*, AMVET+19*, AMVET+20*, AMVET+21* , AMVET+22, AMVET+23*, AMVET+24*, AMVET+25, AMSTAFF1+12~*, AMSTAFF1+16*, AMSTAFF1+17*, AMSTAFF1+18, AMSTAFF1+38*, AMSTAFF1+39* , AMSTAFF1+40*, AMSTAFF1+41, AMSTAFF2+12~*, AMSTAFF2+16*, AMSTAFF2+17*, AMSTAFF2+18*, AMSTAFF2+19, AMSTAFF2+37*, AMSTAFF2+38*, AMSTAFF2+39* , AMSTAFF2+40 |