VistA Analysis » VistA Reference » RPCs » ORQPT MAKE RPL

ORQPT MAKE RPL

Passes Team List IEN, creates a TMP file entry of patients based thereon, and receives a $J job number in return.

Properties

Property Value
Label RPLMAKE
MUMPS Implementation ORQPTQ11
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method RPLMAKE^ORQPTQ11
Method Comment Make global restricted pt. array from Team List.
Input Parameters ORTL
First Comment 

 Variables used:

   ORDFN   = Holder for patient DFN.
   ORJ     = Holds $J value.
   ORREAD  = Holder for ^TMP root to kill.
   ORRET   = Returned value from function call.
   ORROOT  = ^TMP root to pass.
   ORTL    = Team List IEN.
   ORX     = Working variable used in $ORDER statement.
   Y       = Returned value (same as ORJ).
Code 
 N ORDFN,ORJ,ORREAD,ORRET,ORROOT,ORX
 I ORTL="" S Y="" Q                        ; No Team List IEN passed.
 I $G(^OR(100.21,ORTL,0))="" S Y="" Q      ; No such Team List.
 S (ORJ,Y)=$J                              ; Assign returned value.
 S ORROOT="^TMP("_"""ORRPL"""_","          ; Initial setting.
 S ORROOT=ORROOT_ORJ_","_"""B"""           ; Add job number, "B."
 S ORREAD=ORROOT_")"                       ; Assign "kill" root.
 K @ORREAD                                 ; Kill old, if any.
 S ORX=""                                  ; Initialize.
 F  S ORX=$O(^OR(100.21,ORTL,10,"B",ORX)) Q:ORX=""  D
 .S ORDFN=$P(ORX,";")                      ; Extract patient DFN.
 .S ORRET=$$PNAMWRIT(ORROOT,ORDFN)         ; Call that writes to ^TMP.

CPRS

File Type Description
Pascal File rCore.pas


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