Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
844 bytes
|
Line | |
---|
1 | DPTLK4 ;ALB/JFP - MAS Patient Look-up Create stub entry patient file ; 09/01/96
|
---|
2 | ;;V5.3;PATIENT FILE;**73**;DEC 11,1996
|
---|
3 | FILE(FLDARR) ; -- Creates stub in patient file
|
---|
4 | ;Inputs:
|
---|
5 | ; FLDARR - array of field elements to file
|
---|
6 | ;Outputs:
|
---|
7 | ; 0 - sucess
|
---|
8 | ; -1^error -
|
---|
9 | ;
|
---|
10 | ; -- Check input
|
---|
11 | Q:'$D(FLDARR) "-1^required parameter not passed"
|
---|
12 | ; -- New variables
|
---|
13 | N Y
|
---|
14 | ;
|
---|
15 | ; -- Create stub entry in patient file
|
---|
16 | S DIC="^DPT(",DIC(0)="L",DLAYGO=2
|
---|
17 | ; -- Set X = patient name
|
---|
18 | S X=$G(@FLDARR@(2))
|
---|
19 | ; -- Set DIR string = SEX;DOB;SSN;PATIENT TYPE;VETERAN;SC
|
---|
20 | S DIC("DR")=".02///"_$G(@FLDARR@(4))_";.03///"_$G(@FLDARR@(3))_";.09////"_$G(@FLDARR@(1))_";391///"_$G(@FLDARR@(5))_";1901///"_$G(@FLDARR@(6))_";.301///"_$G(@FLDARR@(7))
|
---|
21 | K DD,DO D FILE^DICN
|
---|
22 | K DIC,DLAYGO,X
|
---|
23 | Q Y
|
---|
24 | ;
|
---|
25 | I $P(Y,"^",3)'=1 Q "-1^Could not add patient to patient file"
|
---|
26 | Q 0
|
---|
27 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.