Changeset 1622 for fmts/trunk/p/C0XPT0.m

Timestamp:

May 6, 2013, 12:41:16 PM (11 years ago)

Author:

Sam Habiel

Message:

Mostly comment changes; minor changes here and there. Encounters now work correctly.

File:

• fmts/trunk/p/C0XPT0.m (modified) (3 diffs)

fmts/trunk/p/C0XPT0.m

@@ -1 @@
-C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-05-03  6:09 PM
+C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-05-06  9:47 AM
  ;;1.1;FILEMAN TRIPLE STORE;;
  ; (C) Sam Habiel 2013
@@ -187 +187 @@
  QUIT
  ;
-NP() ; New Person Entry
-        Q:$O(^VA(200,"B","PROVIDER,UNKNOWN SMART",0)) $O(^(0)) ; Quit if the entry exists
+NP() ; Private ; New Person Entry
+        N NAME S NAME="PROVIDER,UNKNOWN SMART" ; Constant
+        Q:$O(^VA(200,"B",NAME,0)) $O(^(0)) ; Quit if the entry exists with entry
         ;
         N C0XFDA,C0XIEN,C0XERR,DIERR
@@ -202 +203 @@
         Q C0XIEN(1) ;Provider IEN
         ;
-HL() ; Hospital Location Entry
+HL() ; Private; Hospital Location Entry
+        N NAME S NAME="SMART PATIENT LOCATION" ; Constant
+        Q:$O(^SC("B",NAME,0)) $O(^(0)) ; Quit if the entry exists with the entry
+        ;
         N C0XFDA,C0XIEN,C0XERR,DIERR
         S C0XFDA(44,"?+1,",.01)="SMART PATIENT LOCATION" ; Name