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

AZCMMDOC.m

Go to the documentation of this file. 
  1. AZCMPR ;THIS IS AN EXAMPLE OF PRINT AZCM(1440069 GLOBAL  [ 10/24/91  4:12 PM ]
  1.  ; ;10/24/91 11:13 AM
  1. STUFF ;S DFN="",PO=0
  1.  ;S PO=$O(^AZCM(1440069,"C",PO)),DFN=$O(^AZCM(1440069,"C",PO,DFN)) Q:+BPO=0
  1.  ;S BBA=$P(^AZCM(1440069,DFN,0),"^",1) W BA
  1.  ;S FI=$P(^AZCM(1440069,DFN,1,0),"^",2) W ?5,FI
  1.  ;S ADATE=$P(^AZCM(1440069,DFN,2,1,0),"^",1) W ?20,ADATE
  1.  ;S ALLOW=$P(^AZCM(1440069,DFN,2,1,0),"^",2) W ?30,ALLOW
  1.  ;S CAN=$P(^AZCM(1440069,DFN,1,1,0),"^",1) W ?40,CAN
  1.  ;S OBJF=$P(^AZCM(1440069,DFN,1,1,1,0),"^",2) W ?45,OBJF
  1.  ;S OBJ=$P(^AZCM(1440069,DFN,1,1,1,1,0),"^",1) W ?60,OBJ
  1.  ;S DOCF=$P(^AZCM(1440069,DFN,1,1,1,1,1,0),"^",2) W ?65,DOCF
  1.  ;S DOC=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",1) W !!,?5,DOC
  1.  ;S OBLG=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",2) W ?15,OBLG
  1.  ;S VENDOR=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,0),"^",5) W ?25,VENDOR
  1.  ;S PO=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,2),"^",1) W ?35,PO
  1.  ;S OBDT=$P(^AZCM(1440069,DFN,1,1,1,1,1,1,2),"^",2) W ?50,OBDT
  1.  S DFN="",BA=0
  1. START S BA=$O(^AZCM(1440069,"B",BA)),DFN=$O(^AZCM(1440069,"B",BA,DFN)) Q:+BA=0
  1. DO ;ENTRY POINT FOR SETTING VARIABLES
  1.  S CAN=0
  1. CAN S CAN=$O(^AZCM(1440069,DFN,1,CAN)) G:+CAN=0 START
  1.  S OBJ=0
  1. OBJ S OBJ=$O(^AZCM(1440069,DFN,1,CAN,1,OBJ)) G:+OBJ=0 CAN
  1.  S DOC=0
  1. DOC S DOC=$O(^AZCM(1440069,DFN,1,CAN,1,OBJ,1,DOC)) G:+DOC=0 OBJ
  1.  S PO=$P(^AZCM(1440069,DFN,1,CAN,1,OBJ,1,DOC,2),"^",1)
  1.  W !!,PO
  1.  G DOC
  1.  Q
  1.  
  1.  
  1.  
  1.  
  1.  
  1.  
  1.