40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.19" SourceFile="procedure_in_lparameters.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS custest AS custom
|
|
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: createcsrhealthcodes
|
|
*</DefinedPropArrayMethod>
|
|
|
|
Name = "custest"
|
|
|
|
PROCEDURE createcsrhealthcodes
|
|
|
|
|
|
*
|
|
* Add values to cursor, row by row.
|
|
*
|
|
FOR lnIndex = 1 TO lnCount
|
|
|
|
*
|
|
* Write values to csr
|
|
*
|
|
REPLACE CBO_Id WITH lnCBO_ID, Diagnosis WITH lcDiagnosis, AdmitDiagnosis WITH lcAdmitDiagnosis, ; && Try to Break FB2P
|
|
Procedure WITH lcProcedure IN csrHealthCareCodes
|
|
|
|
ENDFOR
|
|
|
|
*
|
|
* Return success flag.
|
|
*
|
|
RETURN llSuccess
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|