AZCMPR ;THIS IS AN EXAMPLE OF PRINT AZCM(1440069 GLOBAL [ 10/24/91 4:12 PM ]
; ;10/24/91 11:13 AM
STUFF ;S DFN="",PO=0
;S PO=$O(^AZCM(1440069,"C",PO)),DFN=$O(^AZCM(1440069,"C",PO,DFN)) Q:+BPO=0
;S BBA=$P(^AZCM(1440069,DFN,0),"^",1) W BA
;S FI=$P(^AZCM(1440069,DFN,1,0),"^",2) W ?5,FI
;S ADATE=$P(^AZCM(1440069,DFN,2,1,0),"^",1) W ?20,ADATE
;S ALLOW=$P(^AZCM(1440069,DFN,2,1,0),"^",2) W ?30,ALLOW
;S CAN=$P(^AZCM(1440069,DFN,1,1,0),"^",1) W ?40,CAN
;S OBJF=$P(^AZCM(1440069,DFN,1,1,1,0),"^",2) W ?45,OBJF
;S OBJ=$P(^AZCM(1440069,DFN,1,1,1,1,0),"^",1) W ?60,OBJ
;S DOCF=$P(^AZCM(1440069,DFN,1,1,1,1,1,0),"^",2) W ?65,DOCF
;S DOC=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",1) W !!,?5,DOC
;S OBLG=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",2) W ?15,OBLG
;S VENDOR=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",5) W ?25,VENDOR
;S PO=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,2),"^",1) W ?35,PO
;S OBDT=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,2),"^",2) W ?50,OBDT
S DFN="",BA=0
START S BA=$O(^AZCM(1440069,"B",BA)),DFN=$O(^AZCM(1440069,"B",BA,DFN)) Q:+BA=0
DO ;ENTRY POINT FOR SETTING VARIABLES
S CAN=0
CAN S CAN=$O(^AZCM(1440069,DFN,1,CAN)) G:+CAN=0 START
S OBJ=0
OBJ S OBJ=$O(^AZCM(1440069,DFN,1,CAN,1,OBJ)) G:+OBJ=0 CAN
S DOC=0
DOC S DOC=$O(^AZCM(1440069,DFN,1,CAN,1,OBJ,1,DOC)) G:+DOC=0 OBJ
S PO=$P(^AZCM(1440069,DFN,1,CAN,1,OBJ,1,DOC,2),"^",1)
W !!,PO
G DOC
Q
AZCMPR ;THIS IS AN EXAMPLE OF PRINT AZCM(1440069 GLOBAL [ 10/24/91 4:12 PM ]
+1 ; ;10/24/91 11:13 AM
STUFF ;S DFN="",PO=0
+1 ;S PO=$O(^AZCM(1440069,"C",PO)),DFN=$O(^AZCM(1440069,"C",PO,DFN)) Q:+BPO=0
+2 ;S BBA=$P(^AZCM(1440069,DFN,0),"^",1) W BA
+3 ;S FI=$P(^AZCM(1440069,DFN,1,0),"^",2) W ?5,FI
+4 ;S ADATE=$P(^AZCM(1440069,DFN,2,1,0),"^",1) W ?20,ADATE
+5 ;S ALLOW=$P(^AZCM(1440069,DFN,2,1,0),"^",2) W ?30,ALLOW
+6 ;S CAN=$P(^AZCM(1440069,DFN,1,1,0),"^",1) W ?40,CAN
+7 ;S OBJF=$P(^AZCM(1440069,DFN,1,1,1,0),"^",2) W ?45,OBJF
+8 ;S OBJ=$P(^AZCM(1440069,DFN,1,1,1,1,0),"^",1) W ?60,OBJ
+9 ;S DOCF=$P(^AZCM(1440069,DFN,1,1,1,1,1,0),"^",2) W ?65,DOCF
+10 ;S DOC=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",1) W !!,?5,DOC
+11 ;S OBLG=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",2) W ?15,OBLG
+12 ;S VENDOR=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",5) W ?25,VENDOR
+13 ;S PO=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,2),"^",1) W ?35,PO
+14 ;S OBDT=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,2),"^",2) W ?50,OBDT
+15 SET DFN=""
SET BA=0
START SET BA=$ORDER(^AZCM(1440069,"B",BA))
SET DFN=$ORDER(^AZCM(1440069,"B",BA,DFN))
IF +BA=0
QUIT
DO ;ENTRY POINT FOR SETTING VARIABLES
+1 SET CAN=0
CAN SET CAN=$ORDER(^AZCM(1440069,DFN,1,CAN))
IF +CAN=0
GOTO START
+1 SET OBJ=0
OBJ SET OBJ=$ORDER(^AZCM(1440069,DFN,1,CAN,1,OBJ))
IF +OBJ=0
GOTO CAN
+1 SET DOC=0
DOC SET DOC=$ORDER(^AZCM(1440069,DFN,1,CAN,1,OBJ,1,DOC))
IF +DOC=0
GOTO OBJ
+1 SET PO=$PIECE(^AZCM(1440069,DFN,1,CAN,1,OBJ,1,DOC,2),"^",1)
+2 WRITE !!,PO
+3 GOTO DOC
+4 QUIT
+5 +6 +7 +8 +9 +10 +11
***** ERRORS & WARNINGS IN AZCMMDOC *****
AZCMPR+1 S - 2nd line of routine violates the SAC.
DOC+5 W - Null line (no commands or comment).
DOC+6 W - Null line (no commands or comment).
DOC+7 W - Null line (no commands or comment).
DOC+8 W - Null line (no commands or comment).
DOC+9 W - Null line (no commands or comment).
DOC+10 W - Null line (no commands or comment).
DOC+11 W - Null line (no commands or comment).
