DSSO CREATE 664 (4236)    REMOTE PROCEDURE (8994)

This RPC requires the following file 664 fields to be input in 
  DSSOSNM - Field #18 Station Name (pointer to file 4 - required)
  DSSODEL - Field #19 Deliver To (3-30 characters)
             "PROSTHETICS", "VETERAN", or "OTHER LOCATION AT THIS SITE"
  DSSODRQ - Field #20 Date Required
  DSSODTM - Field #21 Delivery Time (1-99999, 0 decimals)
  DSSOATN - Field #21.1 Deliver To Attention (1-45 characters)
  DSSOPCN - Field #25 Purchase Card Number (16 digits - required)
  DSSOAMT - Field #27 Est Amount (0-999999, two decimals)
  DSSOWO  - Field #24 2529-3 (pointer to file 664.1) 
 
EXTERNAL^INTERNAL format:
Fields also stored are:
  Field #.01 Date = DT
  Field #21 Delivery Time defaults to 30 (days)
  Field #15 Form Type defaults to "2421PC"
 
Field #13 Shipping Entry is populated by RPC DSSO SEND PURCHASE ORDER
 
Output:
 Error Messages:
   DSSORET(0)="-1^"_error message or "0^"_error message
  DSSO668 - File 668 IEN - required) - Patient = VETERAN (#1)
 Successful Completion: 
  DSSORET(1)=IEN of newly-created 664 record_"^Prosthetics 1358 file
     created successfully."
  DSSOVND - Field #4 Vendor (pointer to file 440 - required)
  DSSOIFO - Field #7.1 IFCAP Order (pointer to file 442 - required)
  DSSOPCR - Field #7.5 Purchase Card Reference (required)
  DSSOINI - Field #10 Initiator (purchasing agent DUZ)
  DSSOSHP - Field #11 Est Shipping Charge (0-999999, two decimals)
  DSSODIS - Field #17 Percent Discount (1-99, one decimal)

• DSSOSNM
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   61
  REQUIRED:   YES
  SEQUENCE NUMBER:   4
  DESCRIPTION:   

  File 664 field #18 Station Name - pointer to file 4 (required)
  

• DSSODEL
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   61
  SEQUENCE NUMBER:   11
  DESCRIPTION:   

  File 664 field #19 Deliver To (3-30 characters):  "PROSTHETICS", 
  "VETERAN", "OTHER LOCATION AT THIS SITE"
  

• DSSODRQ
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   61
  REQUIRED:   YES
  SEQUENCE NUMBER:   5
  DESCRIPTION:   

  File 664 field #20 Date Required (required) - calculated
  

• DSSOPCN
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   33
  REQUIRED:   YES
  SEQUENCE NUMBER:   6
  DESCRIPTION:   

  File 664 field #25 Purchase Card Number (required) - 16 digits -  
  will be encrypted before storing in file #664 - Prosthetics 1358
  

• DSSOAMT
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   20
  SEQUENCE NUMBER:   14
  DESCRIPTION:   

  File 664 field #27 Est Amount - (0-999999, two decimals)
  

• DSSOATN
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   91
  SEQUENCE NUMBER:   13
  DESCRIPTION:   

  File 664 field #12 Deliver to Attention
  

• DSSODTM
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   11
  SEQUENCE NUMBER:   12
  DESCRIPTION:   

  File 664 field #21 Delivery Time - in days.  If not input, defaults to 30 
  days.
  

• DSSO668
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   15
  REQUIRED:   YES
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  File 668 IEN - required 
   
  Field VETERAN (#1) is used to set the PATIENT (#1) field in file 664.
  

• DSSOWO
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   30
  REQUIRED:   NO
  SEQUENCE NUMBER:   15
  DESCRIPTION:   

   File 664 field #24 2529-372529- - pointer to file 664.1 
  

• DSSOVND
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   61
  REQUIRED:   YES
  SEQUENCE NUMBER:   2
  DESCRIPTION:   

  File 664 field #4 Vendor (pointer to file 440 - required)
  

• DSSOIFO
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   61
  REQUIRED:   YES
  SEQUENCE NUMBER:   3
  DESCRIPTION:   

  File 664 field #7.1 IFCAP Order - Hyphenated PO Number - pointer 
  to file 442 (required)
  

• DSSOPCR
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   21
  REQUIRED:   NO
  SEQUENCE NUMBER:   7
  DESCRIPTION:   

  File 664 field #7.5 Purchase Card Reference (required) - second 
  hypen-piece of Purchase Order Number
  

• DSSOINI
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   61
  SEQUENCE NUMBER:   8
  DESCRIPTION:   

  File 664 field #10 Initiator (Purchasing agent name/DUZ)
  

• DSSOSHP
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   21
  SEQUENCE NUMBER:   9
  DESCRIPTION:   

  File 664 field #11 Est Shipping Charge (0-999999, two decimals)
  

• DSSODIS
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   9
  SEQUENCE NUMBER:   10
  DESCRIPTION:   

  File 664 field #17 Percent Discount (1-99, one decimal)
  

Output:
  Error Messages:
    DSSORET(0)="-1^"_error message or "0^"_error message
  Successful Completion:
   DSSORET(1)=IEN of newly-created 664 record_"^Prosthetics 1358
     file created successfully."