Call Graph
Call Graph Total: 1
| Package | Total | Call Graph |
|---|---|---|
| VA Point of Service | 1 | ($$ADDMRAR,$$FILE,$$RESULT)^VPSMRAR0 |
VPSMRAR4 ;DALOI/KML,WOIFO/BT - Update of VPS MRAR PDO file ;1/15/15 15:30
Source file <VPSMRAR4.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Point of Service | 1 | ($$ADDMRAR,$$FILE,$$RESULT)^VPSMRAR0 |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUB54(PTIEN,DTIEN,FLD,DIEFLAG,DATA,REQFLDS) | ; file the MEDICATIONS multiple (853.54)
; INPUTS ; PTIEN : Patient DFN for 853.5 entry ; DTIEN : transaction date/time ien for 853.51 sub-entry ; FLD : Field # where the data will be filed ; DIEFLAG : Filing Type (I = Internal, E = External) ; DATA : composite string assigned to a subscript in the local array passed in by Vecna for the specific field ; REQFLDS : Array of required fields by fieldname and entry number ; ; OUTPUT ; success : RESULT = Field Name^IENS^Field Value^1 ; failed : RESULT = Field Name^IENS^Field Value^99^error text describing why data did not get filed ; |
|
| SUB54X(SUBFIL,SUBS,PTIEN,DTIEN,DATA,REQFLDS,DIEFLAG) | ; file the MED CHANGED/CONFIRMED/DISCREPANCY INDICATORS
; INPUTS ; SUBFIL : Sub File# : 853.5454, 853.5455, or 853.5452 ; SUBS : Subscript associated with the Sub File : MCHG, MCNFR, MDISCR ; PTIEN : D0 - Patient DFN for 853.5 entry1 ; DTIEN : D1 - transaction date/time ien for 853.51 sub-entry ; DATA : Field Name^IENS^Field Value ; REQFLDS : Array of required fields by fieldname and entry number ; DIEFLAG : Filing Type (I = Internal, E = External) ; ; OUTPUT ; success : RESULT = Field Name^IENS^Field Value^1 ; failed : RESULT = Field Name^IENS^Field Value^99^error text describing why data did not get filed |
|
| CHKMED(REQFLDS,DATA) | ;Check required Medication fields
; INPUTS ; REQFLDS : Array of required fields by fieldname and entry number ; DATA : Field Name^IENS^Field Value ; ; OUTPUT ; success : RESULT = Field Name^IENS^Field Value^1 ; failed : RESULT = Field Name^IENS^Field Value^99^error text describing why data did not get filed |
|
| CHKALM(REQFLDS,DATA) | ;Check required Med Changed/confirmed/discrepancy fields
; INPUTS ; REQFLDS : Array of required fields by fieldname and entry number ; DATA : Field Name^IENS^Field Value ; ; OUTPUT ; success : RESULT = Field Name^IENS^Field Value^1 ; failed : RESULT = Field Name^IENS^Field Value^99^error text describing why data did not get filed |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VPS(853.5 - [#853.5] | SUB54+20, SUB54+26, SUB54X+22, SUB54X+29 |
| ^VPS(853.7 - [#853.7] | CHKALM+19 |
| Name | Line Occurrences |
|---|---|
| $$CHKALM | SUB54X+17 |
| $$CHKMED | SUB54+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDOK | SUB54+21~*, SUB54+22 |
| DATA | SUB54~, SUB54+15, SUB54+19, SUB54+22, SUB54+27, SUB54+32, SUB54X~, SUB54X+17, SUB54X+21, SUB54X+23 , SUB54X+26, SUB54X+30, SUB54X+34, SUB54X+35, CHKMED~, CHKMED+11, CHKMED+12, CHKMED+17, CHKALM~, CHKALM+11 , CHKALM+12, CHKALM+15, CHKALM+16, CHKALM+19 |
| DIEFLAG | SUB54~, SUB54+21, SUB54+32, SUB54X~ |
| DTIEN | SUB54~, SUB54+20, SUB54+21, SUB54+26, SUB54+31, SUB54X~, SUB54X+22, SUB54X+29, SUB54X+33 |
| EXIST | SUB54X+29~*, SUB54X+30 |
| FLD | SUB54~, SUB54+30, SUB54+32 |
| IENS | SUB54+31~*, SUB54+32 |
| MEDCHGID | SUB54X+26~*, SUB54X+29, SUB54X+33, CHKALM+15~*, CHKALM+16, CHKALM+19 |
| MEDID | SUB54+19~*, SUB54+20, SUB54+21, SUB54+26, SUB54X+21~*, SUB54X+22, CHKMED+11~*, CHKMED+12, CHKMED+16, CHKALM+11~* , CHKALM+12 |
| MEDIEN | SUB54+26~*, SUB54+27, SUB54+31 |
| MIEN | SUB54X+22~*, SUB54X+23, SUB54X+29, SUB54X+33 |
| OK | SUB54X+33~*, SUB54X+34, SUB54X+35 |
| PTIEN | SUB54~, SUB54+20, SUB54+21, SUB54+26, SUB54+31, SUB54X~, SUB54X+22, SUB54X+29, SUB54X+33 |
| REQEXIST | CHKMED+16~*, CHKMED+17 |
| REQFLDS | SUB54~, SUB54+15, SUB54X~, SUB54X+17, CHKMED~, CHKALM~ |
| REQFLDS("MED | ID" , CHKMED+16 |
| REQFLDS("MEDI | CATION NAME" , CHKMED+16 |
| RESULT | SUB54+13~*, SUB54+15*, SUB54+16, SUB54+22*, SUB54+23, SUB54+32*, SUB54+34, SUB54X+14~*, SUB54X+17*, SUB54X+18 , SUB54X+23*, SUB54X+24, SUB54X+30*, SUB54X+31, SUB54X+34*, SUB54X+35*, SUB54X+37, CHKMED+9~*, CHKMED+12*, CHKMED+13 , CHKMED+17*, CHKMED+18, CHKALM+9~*, CHKALM+12*, CHKALM+13, CHKALM+16*, CHKALM+17, CHKALM+19*, CHKALM+20 |
| SUBFIL | SUB54X~, SUB54X+33 |
| SUBS | SUB54X~, SUB54X+29 |
| U | SUB54+19, SUB54X+21, SUB54X+26, CHKMED+11, CHKALM+11, CHKALM+15 |
| WP | SUB54+30~*, SUB54+32 |
