Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AZHLSC23

AZHLSC23.m

Go to the documentation of this file.
  1. AZHLSC23 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ; [ 08/05/1999 7:21 AM ] [4/28/00 1:11pm]
  1. ;;5.0;AZHLSC;;JUL 10, 1996
  1. ;CHANGED DIF="Z(" TO GLOBAL AND OTHER REFERENCES TO THE
  1. ;ARRAY TO THE GLOBAL REFERENCE TO ACCOMMODATE LARGE RTNS SIZES
  1. ;IHS/ABQ/KEU 4/7/95
  1. ;W !!!,$P($P($T(+1),";",2),"-",2)
  1. NEW A,A3,A4,A5,ARG,B,CH,COM,DIF,G,I,J,LIN,NORTNS,NUL,R,Q,XCNP,Z
  1. D END
  1. S Q="""",A4="=""O ",A5="=""C ",NORTNS=$O(^UTILITY($J,""))=""
  1. S AZHL=""
  1. F S AZHL=$O(^UTILITY($J,AZHL)) Q:AZHL="" W:AZHLTERM "." K Z S X=AZHL,DIF="^TMP($J,""Z"",",XCNP=0 X "X ^%ZOSF(""LOAD""),AZHLGFCX" I S XCNP=XCNP-1 D
  1. .;F Z=3:1:XCNP S Z(Z)=^TMP($J,"Z",Z,0) K ^TMP($J,"Z",Z,0) D
  1. .F Z=3:1:XCNP S Z(Z)=^TMP($J,"Z",Z,0) D
  1. ..I Z(Z)["S DUZ" D EN^AZHLSC47 Q:AZHLSC4I=1 S ^TMP($J,"2314",AZHL,Z)=Z(Z)
  1. ..;I Z(Z)["S U=" D U^AZHLSC48 I AZHLSC4I'=1 S ^TMP($J,"23151",AZHL,Z)=Z(Z)
  1. ..D EN^AZHLSC47 Q:AZHLSC4I=1 F J(1)=" K U"," N U","S U=" I Z(Z)[J(1) S AZHLSC49=J(1),AZHLSCPR=0 D UU51
  1. ..D EN^AZHLSC47 Q:AZHLSC4I=1 F J(1)=" K DT"," N DT","S DT=" I Z(Z)[J(1) S AZHLSC49=J(1),AZHLSCPR=0 D DT52
  1. ..D EN^AZHLSC47 Q:AZHLSC4I=1 F J(1)="S DTIME="," DTIME=",",DTIME=" I Z(Z)[J(1) S AZHLSC49=J(1),AZHLSCPR=0 D DTI53
  1. ..Q
  1. .Q
  1. 514 D TTL^AZHLSC("2.3.1.4 SET DUZ(0).")
  1. I NORTNS D NRTN^AZHLSC G 515
  1. I $L($O(^TMP($J,"2314",""))) W !?10,"SUSPECT unconditional SET of DUZ or DUZ array)." S %="" F S %=$O(^TMP($J,"2314",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"2314",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
  1. 515 D TTL^AZHLSC("2.3.1.5.1 SET, KILL or NEW of Variable U.")
  1. I NORTNS D NRTN^AZHLSC G 151
  1. I $L($O(^TMP($J,"23151",""))) W !?10,"SUSPECT unconditional SET of Variable U ." S %="" F S %=$O(^TMP($J,"23151",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"23151",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
  1. 151 D TTL^AZHLSC("2.3.1.5.2 SET, KILL or NEW of Variable DT")
  1. I NORTNS D NRTN^AZHLSC G 153
  1. I $L($O(^TMP($J,"23152",""))) W !?10,"SUSPECT unconditional SET, KILL or NEW of Variable DT ." S %="" F S %=$O(^TMP($J,"23152",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"23152",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
  1. ;
  1. 153 D TTL^AZHLSC("2.3.1.5.3 SET DTIME.")
  1. I NORTNS D NRTN^AZHLSC G 524
  1. I $L($O(^TMP($J,"23153",""))) W !?10,"SUSPECT unconditional SET of DTIME." S %="" F S %=$O(^TMP($J,"23153",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"23153",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
  1. 524 D 524^AZHLSC51
  1. 5251 D ^AZHLSC52
  1. 526 D ^AZHLSC53
  1. 529 D ^AZHLSC51
  1. Q
  1. AZHLSC52 ; SET RECORD TO PRINT
  1. S AZHLSCTI=$F(Z(Z),J(1)) I $E(Z(Z),AZHLSCTI,AZHLSCTI+2)="IME" S (AZHLSC4I,AZHLSCPR)=1
  1. I AZHLSCPR=1 Q
  1. S AZHLSCPR=1 S ^TMP($J,"23152",AZHL,Z)=Z(Z) Q
  1. AZHLSC53 ; SET RECORD TO PRINT AZHLSC4I AZHLSCPR = 1 DO NOT PRINT
  1. I AZHLSCPR=1 Q
  1. S AZHLSCPR=1 S ^TMP($J,"23153",AZHL,Z)=Z(Z) Q
  1. U51 ; SET RECORD TO PRINT AZHLSC4I AZHLSCPR = 1 DO NOT PRINT
  1. I AZHLSCPR=1 Q
  1. S AZHLSCPR=1 S ^TMP($J,"23151",AZHL,Z)=Z(Z) Q
  1. UU51 ;THIS SUB ROUTINE WILL LOOK AT AZHLSC4I ONE TIME
  1. D U^AZHLSC48 I AZHLSC4I=1 G UUEND
  1. D U51
  1. S AZHL0=AZHL D EN^AZHLSC47 I AZHLSC4I=1 G UUEND
  1. D U51
  1. D EN^AZHLSC46 I AZHLSC4I=1 G UUEND
  1. D U51 Q
  1. UUEND Q
  1. DT52 ;THIS SUB ROUTINE WILL LOOK AT AZHLSC4I ONE TIME
  1. D DTXLFDT^AZHLSC48 I AZHLSC4I=1 G DTEND
  1. D AZHLSC52 I AZHLSC4I=1 G DTEND
  1. S AZHL0=AZHL D EN^AZHLSC47 I AZHLSC4I=1 G DTEND
  1. D AZHLSC52
  1. D EN^AZHLSC46 I AZHLSC4I=1 G DTEND
  1. D AZHLSC52 Q
  1. DTEND Q
  1. DTI53 ;THIS SUB ROUTINE WILL LOOK AT AZHLSC4I ONE TIME
  1. D DTIMEXU^AZHLSC48 I AZHLSC4I=1 G DTIEND
  1. D AZHLSC53 G DTIEND
  1. S AZHL0=AZHL D EN^AZHLSC47 I AZHLSC4I=1 G DTIEND
  1. D AZHLSC53
  1. D EN^AZHLSC46 I AZHLSC4I=1 G DTEND
  1. D AZHLSC53 Q
  1. DTIEND Q
  1. END K ^TMP($J,"2314"),^("Z"),Z
  1. Q