VistA Analysis » VistA Reference » RPCs » ORWPCE PROC

ORWPCE PROC

Returns a list of procedures for a clinic location.

Properties

Property Value
Label PROC
MUMPS Implementation ORWPCE
Return Type ARRAY

MUMPS Method Description

Property Value
Method PROC^ORWPCE
Method Comment get list of procedures for clinic P12 for CPTMods
Input Parameters CLINIC, ORDATE
Code 
 S:'+$G(ORDATE) ORDATE=DT
 D GETLST^IBDF18A(CLINIC,"DG SELECT CPT PROCEDURE CODES","LST",,,1,ORDATE)
 N IDX,MOD,CODES,FIRST S IDX=0
 F  S IDX=$O(LST(IDX)) Q:'+IDX  D
 . I LST(IDX)="" K LST(IDX) Q
 . S MOD=0,CODES="",FIRST=1
 . F  S MOD=$O(LST(IDX,"MODIFIER",MOD)) Q:(MOD="")  D
 . . I FIRST S FIRST=0
 . . E  S CODES=CODES_";"
 . . S CODES=CODES_LST(IDX,"MODIFIER",MOD)
 . K LST(IDX,"MODIFIER")
 . I 'FIRST S $P(LST(IDX),U,12)=CODES

CPRS

File Type Description
Pascal File Encounter/rPCE.pas


Document generated on August 31st 2022, 2:55:43 pm