| TITLE | VALUE | |
|---|---|---|
| NAME | DSSO DAT PREPOPULATOR | |
| DESCRIPTION | This RPC extracts all valid records from the Record of Pros Appliance/Repair (#660) file from the date in the DSSO DAT PREPOP START DATE forward. The number of records processed per run is specified by parameter DSSO DAT PREPOP RCDS PER RUN. This job will begin with the IEN specified in parameter DSSO DAT PREPOP LAST 660 IEN. The job is controlled by VistA parameters. No input parameters are needed. | |
| TAG | EN | |
| ROUTINE | DSSOPR1 | |
| RETURN VALUE TYPE | GLOBAL ARRAY | |
| RETURN PARAMETER DESCRIPTION | The first line of the returned array will be in the following format: List [0] = Purge Date ^ Create Date ^ descriptive information Example: 3150323^31503123^DSS APAT Appliance Transaction Extract temp All fields from file 660 and a few fields from the Patient file (#3) are returned in the following format: List [n]="$$APPLIANCE TRANSACTION$$" List [n...]=file 660 ien^field number^"E" or "I"^data (external values of all fields are returned followed by a limited number of internal values) If field 28 Extended Description exists, this section will be present: List [n]="$$EXTENDED DESCRIPTION (660 field 28)$$" List [n]=xxxx^28^line number^data List [n...]=xxxx^28^line number^data where: xxxx = file 660 IEN field number 28 = Extended Description from file 660 data = one line of data from the word-processing field If field 8.1 Suspense Date in file 660 is not null, this section will be present: List [n]="$$DESCRIPTION OF ITEM/SERVICES$$" List [n]=xxxx^4^line number^data List [n...]=xxxx^4^line number^data where: xxxx = file 668 IEN field number 4 = Description of Item/Services from file 668 data = one line of data from the word-processing field List [n]="$$HCPCS SHORT NAME$$" List [n]=xxxx^.02^E^data where: field number .02 = HCPCS Short Name from file 661.1 xxxx = 661.1 IEN if a HCPCS is present (in field 4.5 of file 660) or just "661.1" if this is a SHIPPING entry List [n]="$$PATIENT$$" List [n]=file 2 ien^field number^"E" or "I"^data List [n...]=Patient file (#2) information in the above format for fields: Date of Birth (#.03) ICN (as returned from DSIC DPT GET ICN) Patient ID (#.0905) The Last Record Processed will appear as: List[9999999999999998] = ^-pc 1 Text "$$LAST RCD$$" ^-pc 2 IEN of last record processed The End of the dataset will appear as: List [999999999999999] = Text "$$END$$" Error Messages: Any error message will occur along with the $$LAST RCD$$ or $$END$$ entries. List ["E"] = Purge Date ^ Create Date./Time ^ Error in 2319 Extract: -1^xxxxxxxx where xxxxxxxx=text of error message | |
| AVAILABILITY | ||
| INACTIVE | ||
| CLIENT MANAGER | ||
| WORD WRAP ON | TRUE | |
| VERSION | ||
| SUPPRESS RDV USER SETUP | ||
| APP PROXY ALLOWED | ||